This is tJie first "USER GROUP WGESl" page. UP-DATE invites each Timex-Sinclair User Group 
to send in a one page narrative about their organization. CATS is tlw first and it slwuld serve 
as a guide. So come on you Club Secretaries, tell us about yourself. 



TIMEX-SINCLAIR USER GROUP DIGEST 



C.A.T.S. The Capital Area Timex Sinclair User Group 



We are the Capital Area Timex Sinclair (CATS) Users Group - 
located in the nation's capital, Washington, DC. We are a 
not-for-profit organization and have been around since there were 
ads in Popular Science for ZX-81 kits. We have about 90 members - 
about a third of them are active users of TS-^2068's and more than 
half have TS-2068's. Most of our members are from the the local 
area but we have dedicated members who come from as far away as 
Wilmington, DE and Harrisburg, PA to attend our meetings. We meet 
on the second Saturday of every month in the New Carrolton Public 
Library, New Carrollton, MD just inside the Capital Beltway 
(1-95). We usually have hardware sessions covering repairs and 
modifications starting at 11 a.m. and theh the general meeting at 
2 p.m. Each meeting usually has a specific topic or theme. 

We provide many services to our members for annual dues of $18; 
Some of these are: 

Monthly 12-page newsletter (available also to 
non-members for a $12 annual subscription) 

Group ■ library of software (ZX's and TS-2068's) 
available at a nominal fee (i.e., the cost of the tape) 

Group buys of hardware and software to get volume 
discounts (e.g., TS-2068SCLD'sv non-volatile RAM 
boards, disk controllers^ disk drives and cases, printer 
interfaces ) 

Hardware sessions with expert technical guidance where 
we repair or modify hardware, and build items that come 
in kit format 

Software sessions as part of our general meetings where 
people present software that the have developed or used. 

In addition, we have many members who still actively use their 
ZX's and TS-lOOO's In addition, we have a growing number of QL 
users and even a few Z-88 users. We actively try to represent the 
entire spectrum (pardon the pun) of Timex and Sinclair users. 

Our Executive Board is comprised of: 



President 

1st Vice President 
2nd Vice President 
Secretary 
Treasurer 
Members -at-Large 



Newsletter editor. 



Tom Bent 
Hank Dickson 
George Rey 
Mike Warmick 
Ruth Fegley 

Bill Barnhart 
Bob Curnutt 
Mark Fisher 
Vernon Smith 



For more information or a sample of our newsletter, please feel 
free to contact Vernon Smith at (703) 978-1835, or c/o CATS, P.O. 
Box 467, Fairfax Station, VA 22039. If reading this has made you, 
want to join up without waiting another minute, send your name and 
address along with a check for $18 ($12 for newsletter 
subscription only) made payable to "CATS" to the above address. 
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The Last Issue of your Subscription 

Do you want another Year? 

UP-DATE began last October with 40 subscribers 
and it has been a tough clirrto to the present 220. 
A few subscriptions are still trickling in. The 
nuntoer of TS-2068 users is very small, smaller than 
most realize. Analysis by UP-DATE leads to the 
conclusion that there are fewer than 800 active 
users of the TS-2068. Further, it seems that there 
are fewer than 500 "serious" TS-2068 users who have 
already, or who are interested in developing their 
TS-2068S beyond its original configuration. In 
order to assure publication support for such a small 
group there must be a feeling of "family" and the 
family must be mutually supportive. I believe that 
IF-DATE has been successful in promoting the TS-2068 
family concept. Several outstanding writers and 
programmers have joined in to share their knowledge 
out of their desires to help. 

The TS-2068 family of users need continuing 
publication support. UP-DATE will continue to 
provide the support IF there are sufficient nuntsers 
who want to subscribe to a Quarterly magazine of 
this size. There is one business factor which is 
missing in a publication about CRPEIAN caiputers. 
The missing factor is ADVERTISINS, which all profit 
motovated publications depend upon. Ordinarily a 
magazine that has the article content of UP-DflTE 
would have about ICQ pages and about 60 pages would 
be advertising. The publisher would be making 
enough to send the kids to Harvard or Oxford, 
Without such advertising income, which really isn't 
possible to achieve by a TS publication, the 
subscriptions must pay the costs. This is true for 
all of our TS-2068 and QL publications. 

The real reason for the decision to "hang on" 
is the attitude of the subscribers to UP-DATE as 
expressed in mail received and numerous phone calls. 
All have been full of encouragement and want UP-DATE 
to continue. Most who are not owners of the 
Sinclair QL are tolerant of the idea of sharing 
UP-DATE with the QL user group, just so long as the 
coverage of the TS-2068 is not diminished. The 
subscribers who are QL owners are delighted. In a 
way, the lack of advertising is a PLUS for the 
subscribers, because UP-DATE can be (and is) 
cOTipletely dedicated to the interests of the 
subscribers and not influenced by a syndrome of 
catering to the paying advertisers. Never the less, 
UP-DATE and the other ZX-TS publications are hanging 
on by thsir teeth and their survival is tenuous, 
completely dependant upon a high renewal of 
subscriptions . 

So, here is the plan and the promise. UPDATE 
will hang in there and begin another year of issues 
while asking for subscription renewals. The article 
content of UP-DATE will be at least 30 pages of 
TS-2068 specific coverage. The Sinclair QL and the 
Z88 will be covered in extra pages and the magazine 
will grow with the QL and Z88 coverage. The October 
issue will start the next year. The future of 
UP-DATE depends upon most of the present subscribers 
renewing subscriptions. If there is an insufficient 
number of renewals, then you will get your October 
issue along with a 3/4 refund, and your editor will 
begin to devote more time to other hobbies. UP-DATE 
cannot start over at the half way point to try to 
build to the present level. Judging from tte 
attitudes of the subscribers, such a back step will 
not occur. 



The subscription goal of UP-DATE has not quite 
met expectation. But with the present FULL SUPPCRT 
of the three current Disk Systems, more Larken DOS 
and Aerco FD-68 DOS users should be joining the 
UP-DATE family when the word gets around that these 
disk systems ARE supported. This July issue should 
go a long way toward proving that point. A lot of 
money has been spent to gain a fully capable TS-2068 
Lab, including all current DOS systems and all disk 
formats. This full capability allows full service 
to the subscribers. A similiar well equipped 
Sinclair QL Lab is in operation. The programs and 
utilities given in UP-DATE are all fully tested 
before publishing, right here at the UP-DATE Lab. 
From now on the programs and utilities will be given 
in three DOS formats, Oliger DOS, Larken DOS, and 
Aerco FD-68 DOS (when pratical). 

While the sales of new disk drive controllers 
have peaked, there are still a number of users who 
want to upgrade to disk capability. We will 
continue to seek more TS-2068 user subscribers who 
want to "take it to the limit". As UPDiffE phases 
into suf^rting the Sinclair QL, we will see a 
repeat of the past, where most programs presented 
will have "dual application". Although the TS-2068 
and the QL are different computers, most programs 
that operate in one can be changed in syntax to 
operate in the other. This will provide some fresh 
new conversion programming for both cotiputer users. 
We TS-2068 users need such an infusion of new 
programming, and most of our good programs can be 
carried into the maybe expanded. So, let us 

join forces with the QL users and keep on truckin, 
but faster. 

A few personal notes: As I get deeper into the 
operation of the three active Disk systems for the 
TS-2068 I am struck with the enoromous capability. 
I guess that for the money spent on the TS-2068 I 
could be operating a fully exanded IBM AT system 
with two floppies and a 60 Mega byte hard drive. I 
have operated the excellent IBM computers at the 
College. The concept of that system is different. 
Everything is planned for you. Software is rigidly 
constructed for a specific range of functions, copy 
protected, and everything is costly. There is not 
the flexibility that one has with a fully developed 
TS-2068. I am finding that this conrparison is also 
true when comparing the IBM and the Sinclair QL. 
Che has more flexibility with our computers and much 
less expense of operation. And the overall 
capability is not much different. 

This JULY UP-DATE Issue- New Programs and New 
Utilities 

Putting this issue together involved taking the 
BUDGET program (by Bob Mitchell) and doing a 
re-write of the supporting BUDGET. Bl loader and 
caistructing the Disk Menus for QLiger DOS and FD-68 
DOS. Then each DOS version had to be extensively 
tested. Then the same process was required for the 
other programs given. During this process some new 
utilities were developed and will be given. 
Deficiencies were discovered in the Aerco printer 
driver code, which many use with TS-2068 printing 
software, I will give you the procedures that I 
used to work around these built in glitches. Then 
next issue we will go further into PRINTER CODES and 
how to do a better job with them. Jack Dohany's 
early "RALQADER" program was used to work in a 
relocatable code table, I suspect that Jack has 
some up-dates to the Aeroo Printer handler code and 
will see if we can bring them to you. 



INTT: This is a utility program to quickly get 
a printer port code loaded, initialized and ready to 
print with a Centronics printer. Given are two INTT 
utilities for using the Aerco Printer Port code with 
the Aerco FI>68, and with the Larken LKDOS, Another 
I^^r^ is given for setting up the OLIGER printer 
driver that is contained in the SAFE EPROM. Many 
Larken LKDOS users use the Aerco prcode and its set 
up is kinda tricky. This prcode is the one on 
cassette as supplied with the Aerco Centronics 
interface. The INTT utility for the AEROO FD-68 is 
reloactable (to a starting address of your choice). 

Perhaps in a future issue a similiar utility 
for the Oliger prcode that acconpanies the Oliger 
Centronics interface can be presented. Mr. Oliger's 
driver code requires much less RAM and is error 
free, while the Aerco prcode has a "first LPRINT" 
glitch that is difficult to work around. Also the 
Aerco Prcode lacks support of TAB and printer status 
check. Incidentally, the Aerco and Oliger codes 
work equally as well with either Centronics 
interface. I will ask Mr. Oliger to let us use his 
prcode, as it is much better. The Oliger Disk users 
do not have to worry with loading a prcode as the 
SAFE EPROM contains the code and is initialized with 
<r£T /p=o>. 

Help with the Aeroo FD-68 

A problem exists in using the Aerco FD-68 DOS. 
Since there is no Character Array SAVE LOAD, the 
data files must be either CODE files or a complete 
Variable file save load. When a vars file is loaded 
the existing basic program vars are replaced. This 
means that I could not do what I'm new doing; ie, I 
could not SAVE several data files as VARS files, and 
re-load them sequentially to print a continuous 
document. This is because the printing variables 
(line length, print style, etc) would be wiped out 
with the LOAD of a vars file. The INTI utility for 
the Aerco FD-68 takes care of this by providing 67 
extra bytes of code ABOVE the 800 byte prcode, for 
storage of variables. So, the solution is to "hide 
the essential vars" above the prcode before loading 
in a new vars data file for printing, 

A small counter from 1 to 67, using a READ DATA 
within the counter can be used to stash these vars 
before a vars file is booted in. The DATA line can 
contain the letter designations of the essential 
vars to be preserved. Then AFTER the new Vars file 
(a data file) has been loaded, the essential vars 
(nunbers) can be PEEKed out and re-assigned to the 
essential vars. Then the basic program can resume 
with identical printing and set-up variables. This 
is the way the Aeroo FD-68 version of Smart Text 
conducts autonatic printing of multiple data files 
booted in from disk. This requires the variables to 
be poked to the (appended) prcode just before the 
new data file (a vars file) is loaded. 

A Code File Printer 

MS-TAS: I donate this new utility to Public 
Domain. MS-TAS is a utility to peek and print out 
Mscript and Tasword CODE files "without need to have 
either of the softwares" loaded. Some of us do not 
use either Mscript or Tasword, but receive data 
files saved with these two popular word processors. 
I got tired of wondering "what the heck's in thar" 
and MS-TAS is the result. It CATs the disk 
directory, pronpts to input a code file name, then 
IX5ADS the code and begins printing with a Centronics 
printer. All you need to input is printing line 
length, the STARTINS code address and the BYTE 



LENGTH of the code. For Aeroo and Larken DOS, the 
printer code is also booted in and initialized. 

Using STE$ to Modify Disk Program Titles 

Here's a little quib for Disk Users: The 
senario is, several data files have been saved with 
a name followed by a nuniser, as SAVE /"page 1"DATA 
h$() through "page 30". Now Smart Text can print 
all 30 of these file in one continuous document 
without pausing for breath. BUT, the titles are not 
accepted. ST wants just numbers as titles for auto 
printing from disk. This litUe quib will fix 
things. « FOR n=l TO 30: RESTORE /"page "+ Sm$ 
nDATA $ TO SIR$ n: NEXT n ». CAT the directory and 
the 30 "page num" files have been changed to just 
nuniDers 1-30 for printing. Hope I didn't lose you 
with that. All we did was to re-name 30 files in 
disk within about 30 seconds. A numeric variable, 
such as n,, is added to a literal "string of 
characters" by using STR$ n. 

Similiar concats of disk titles for SAVE LOAD 
RESTCRE ERASE CAT MOVE are practical. Say a 
variable "n" needs to be appended to a title "page" 
to SAVE with LARKEN DOS. « LET a$="page "+ STR$ 
n+".a$": PRINT #4: SAVE a$ » ort to do it. Here's 
an easier one for Aerco FD-68 to save PROGRAMS under 
a "program nuniser" instead of a SAVE OVER. The 
title is "irscript" and tte auto RUN line is 10. 
Your save line would be: « OUT 244,1: MOVE 
"mscript.bas",10 ». We start with a variable like 
«I£T ss=l» then change the SAVE line to: « OUT 
244,1: LET a$=" " "mscript "+ SIR$ ss+".bas""": fO/E 
"a$",10: LET ss=ss+l ». The first save is "mscript 
l.bas". The next save will be "mscript 2.bas". To 
get to be frierris with SIR$, do this: <LET a=l> 
<PRINr SrR$ a>. <I£T b$="test"> <LEr c$=b$+" "+ 
SIR$ a> <FRINr B$>. See? SrR$ is pretty friendly 
after all I 

A Print Wheel Problem 

The print character style of the previous issue 
looked pretty good to me, until a subscriber called 
about having trouble deciphering listings. The 
problem is one of discerning whether a character is 
a "i", a "1" (el), or a "1" (one). This has always 
been a problem with type and some typewriters use 
the literal "1" (el) for the nuniaer "1" (one). I 
looked around town and found a print wheel that 
seems to give better identification of the "i" 
(eye), but alas, the letter "1" (el) and the nuiriaer 
"1" (one) looks the same. Can you tell the 
difference- 111111? I'll try to solve this ident 
problem by using uf^Jer case "L" in listings, while 
looking for a print wheel that has better 
characters. 

A TOS (Zdara) Disk Newsletter 

TOS DISK (ZdDra FDD): UPDATE receives a nice 
newsletter "FDD EXPRESS" done by Mr. Ron Havlen, 
4307 Chant>ers Road, Horseheads, NY 14845. FDD 
Express represents a resumption of the (defmct) 
TX3PS Newsletter. Ron is a subscriber to UP-DATE and 
I invited him to contribute regular articles in 
support of the TOS DISK. Instead, Ron gave 
permission to re-print anything found in his 
newsletter. I will print excerpts of FDD EXPRESS 
from time to time. This issue gives one sample two 
page isue for TOS disk users to evaluate. Ron 
promises to get heavy into CP/M and sane of that 
shDuld be interesting to the Aerco FD-68 users. In 
the meantime, those who have the Zebra FDD (TOS) 
-disk really should have this newsletter. (Lode in 



the Orphan Disk section) 
A Save Nothing File 

"Cclear"0COE: Did you know that once a OCXJE 
program has been loaded, the durn thing cannot be 
gotten rid of? CLEAR only clears the vars. NEW and 
the code is still stuck in thar. Set RAM TOP again, 
and the code is still there. You tnay not want to 
lose your Basic program by OFF or RANDOMIZE USR 0, 
just to clear the code out. There is a easy way to 
do this, so easy that its one o them "Why dint I 
thunk of it befores". Turn cm the conputer and SAVE 
"Cclear"ODDE 30000,65535. Thats a SAVE of 35535 
bytes of "zeroes". Later when you want to clear out 
a code program, just LOftD "Cclear"OCDE. You can 
make several Cclear saves to clear out smaller 
segments of memory. SAVE "Cclear2"CXX)E 65368,167 
will clear just the UDG area (when reloacted) . 

Check the VARS Area 



"VARS_DIS" is a utility to MERGE to any Basic 
program to give you a disassentoly of the entire VARS 
area, TWo additional bits of often needed 

information are presented, system variable VARS (the 
starting address of the vars area) and ELINE (top 
byte of vars+1). Then to get P-RAMT (the last byte 
of the BASIC PROGRM) , just substract 1 from the 
given "VARS" address. But both VARS and P-RAMT will 
be moved UPWARD by the exact byte length of the 
utility VARSJDIS, when the utility is merged. 
Adnitedly, this one dont set the barn on fire, but I 
needed it once er it wont a been hatched. And, it 
mought jest turn you on to doin more pedcin and 
pokin, which is the way to learn it dum it. 



A BREAK THROUGH DOS for the TS-2068 

Take DOS to The LIMIT - with MAX DOS 

"MAX DOS"; Now I've saved these last two to 
ths last. A BREAK THROUGH in DISK CAPABILITY, and 
indeed it is, is the STACKING of the two most 
versatile disk operating systems, Oliger DOS and 
Larken DOS. I'm gonna coin a name for it because 
UP-DATE made the discovery. How bout "MAX DOS", 
which sez mor'n IBM's "MS DOS". Theirs sounds like 
a "mess" whil'st our'n sounds like the mostest. 
Gotta get a leg up, right? Well, I'll declare, 
swear, affirm, bet, and guarantee that this "MAX 
DOS" is the best disk operating system that has come 
down the pike for ANY personal computer 1 "TWO WELL 
raiSIGNED DISK SYSTEMS THAT OPERiffE TOCSnHER AS ! 
ONE" ! I AND NEITHER TAKES UP ANY OF THE TS-2068 ^ 
RMI I I dont want to take the thunder out of my own 
article, so will just call your attention to it. 

EXTRA MEMCRY 

EXTRA MEMCRY: Gobs of iti A TS-2068 that has 
twenty times the maximum capacity of a IBM XT! Do 
pictures and proof schematics lie? An interesting 
article by Mr. Charles Bothier sets the technical 
basis for our cottage industry to provide more 
memory expansion hardware. 

Did you modify the TS-1000 as per the January 
UP-DATE (Dock Bank M«nory for 20 cents)? Well, I 
did and the dum thing didn't work right. So, I 
sent the board to John Oliger with a limit placed on 
repair cost. It came back and now it works ($15.00 
repair cost). Seems that one little detail was left 
out of the modification instructions. Gotta ronove 
a feed through on the board. Now the "twin 32K dock 



bank Ram" sits in my expansion port most of the 
time, ready to take basic programs and utilities for 
instant operation. There is a "kind of 

multitasking capability here, where a dock bank 
titility can generate data in the vars area to be 
used with a basic program in the home bank. I think 
that I'll try adding a battery to it to make it 
nc»i-volatile memory so that when the computer is 
turned OPF, the data will ranain. If successful 
I'll tell you about it. 

The New Oliger V2-52 EPROM 

I recently received the latest Oliger DOS 
EPROM, which includes some real fine additions. 
IncltKded now are the functions ERASE / (file name), 
RESTCRE / (old file name to new file name), RESTCRE 
/"new disk name", RESTORE /(used alone to 
re-initialize to default parameters), VERIFY /(file 
name) to check the file for errors, COPY/ copies 
screen to printer, MERGE /(program name) , SAVE 
//(Save without warning ~ that file name may be 
present). Of particular note is that the ERASE/ 
function "completely re-organizes the disk contents 
and recovers the disk space from an ERASED file". 

The new SAFE CATALOG has new data that I find 
to be very valuable. The starting line of each 
Basic program is given, and for OCDE files the 
starting address and byte length are given. Also, 
the finished SAFE manual is now available. This (I 
believe) is the final coup de ma tre of the Oliger 
SAFE DOS. Any further EPROM versions will be for 
oonrections (if un-forseen prdDlems are found). A 
CAT of the directory of the April Issue disk is 
given with the new V2-52 format. It serves two 
purposes, to show the nice catalog, and to show the 
ccxitents of the April issue disk. (The April Issue 
Disk has the same programs for Larken DOS and Aerco 
FD-68 DOS). 

JLO SAFE V2.52 1988, J. Oliger 

DISK NAME: APRIL DPDATB 
PORMATTED 640 IRAOCS, 0 SIDE{S) 
CAPACtTYs 79 CyLS/395K BOTES 
FREE: 11 CaS/55K BXTES , 

ZE START ^ 



FIUENAME TYPE CYLS SIZE START * 



986 
702 



INrr.Bl BASIC 

budget. CJ BXTES 6 25923 32000 

spread. GJ BYTES 1 3904 58400 

budget. BJ BASIC 5 24554 10 

spread. BJ BASIC 1 2855 8000 

BASIC 2 5445 5 

924 8000 



BRIEF. Bl 

MS-TAS.Bl BASIC 1 

LI MCLORD BASIC 1 487 1 

PEEK VARS BASIC 1 196 

budget. CY BYTES 6 25923 32000 

SEARCH BASIC 1 4978 1 

FILEJDEX BASIC 1 1163 1 

MARK-MOVE BASIC 1 2092 1 

VERI DISK BASIC 1 855 1 

ChopTn BASIC 2 7584 220 

Btls BASIC 3 14780 9900 

VcECt BASIC 2 7674 1 

Spell BASIC 2 7411 100 

Ohm's Uvr BASIC 1 1257 100 

Multiply BASIC 

lype Style BASIC 
Piano 



budgetD 
bujE.Cl 
bujOb.CT 
bujJs.CT 
help.cr 
bujJ3.Cr 
bujJx.CT 



2055 4608 
BASIC 1 4747 10 
BYTES 1 652 64716 
BYTES 4 17642 47047 

BYTES 2 8320 33280 
1 2048 33280 
1 3968 33280 
BYTES 3 11200 33280 
2944 33280 



BYTES 



BYTES 



CLI-MS-TAS BASIC 
(XI CODE BASIC 1 
prcd BYTES 
Cclear BYTES 



1 1512 8990 
1841 

256 23296 
5367 60000 



Super HS-T BASIC 1 3060 8972 
TOTAL FILES: 39 



LETTERS 



Dear Bill, Please send the Jan 88 disk. 
Check inclosed. How about asking the readers if 
anyone can help me out with schematics or other 
info concerning the TS-1000 "BASICARE" modules 
that I have. 

The units are: a connecting module, a 64K 
RAM, two 16K RMs, a DROM expandable to 8K, and 
a printer interface. These should be much less 
expensive to convert to TS-2068 than to buy new 
ones. 

Ray Norton, PO Box 331, Bonner Springs, KS 
66012-0331 




Ray, this reply wont be in specific detail 
but may help. Someone out there may have 
schematics but I doubt that the maker released 
their tech data. YES! You can make 
modifications to any TS-1000 memory device to 
use with the TS-2068, and it is worth the effort 
to try. Generally > the memory chips of that era 
were 2 and 8K chips. It would not be cost 
effective to replace these old chips, but if 
they are still good, then the 64K RM board 
would be worth salvaging. 

The BASICARE system is the neatest 
expansion package that I have ever seen for any 
computer. It consists of several "stackable" 
modules. As each module stacked on top of the 
one below, the I/O buss of each mated. The 
first module which connects to the computer is 
named "Persona" and is a I/O Buffer for the Z-80 
CPU buss lines. ' Since all of the TS-1000 I/O 
buss lines are "pin compatable" with the 
TS-2068, the Persona" unit should work almost AS 
IS with the 2068. One more TS-2068 buss trace 
(MREG) shDuld be brought into the Persona unit 
as is shown in the diagram given in this issue 
about the Oliger 64K Ram. This MRBQ line should 
be furnished to^f'^AK Ram that you modify. The 
rationale given in the January UPDATE article 
about modifying tte 01 i RAM should be followed. 

Generally, the ICs used and the method for 
coding for memory addressing during the TS-1000 
era was fairly standard, and it is likely that 
the 64K Ram that you have will have almost 
identical coding chips to those in the Oliger 



RAM. If not, then you will need to obtain data 
sheets for the chips used (Jamesco Electronics 
is a good source). Or call me and I'll likely 
have the data steets that you need. The memory 
of the TS-1000 modules must be re-coded to the 
TS-2068 memory map. 

If I were you I would set aside the modules 
that contain the printer interface and the DROM. 
The task of making these useful for the 2068 
involves re-design of the circuits for another 
purpose. Instead, the more productive approach 
would be to re-code the 64K Ram for two 32K dock 
banks as per the Oliger Ram conversion. Then 
later, as the project develops, you may want to 
re-design these boards for anotter purpose. 



The Basicare system offered two branches of 
modules for using one 64K RAM or (up to) 16 64K 
modules. The "second" stacked module, which 
could be left out, is named "Minimap". This 
module provided addressing for 16 "pages" of 64K 
RAM Modules, for a total of one mega byte of 
RAM. If you have this unit, and more RAM 
modules, then a study of Mr. Bothner's article 
in this issue could provide guidance for 
modification of your "minimap" module. Notice 
that Mr. Bothner starts his project with a I/O 
Buss BUFFER board built upon a Zebra Pro to 
board. You already have 99% of that unit in 
your "Persona" module. Believe me, a I/O buffer 
is one BIG project to build. About half way 
through it takes on the appearance of a "Afro 
head" . 

So, you really have two options. You can 
make your Basicare modules into "Switchable Dock 
Bank RAM" as we do with the Oliger Ram 
modification. Or, you can follow the lead given 
by Mr. Bothner to make a more elaborate system. 
UPDATE will present a follow on article that 
gives Mr. Bothner's corrected TS-2068 PROM. But 
as shown in his article, he already has several 
64K banks in operation. Also note in his 
article that a auxiliary power supply is a part 
of his system. Basicare also had a auxiliary 
power supply module that was needed as more 64K 
Rams were stacked. 

The advantage that you start with is having 
neatly packaged modules which can be modified to 
become a TS-2068 system. I can visualize them 
pretty silver modules stacked behind the TS-2068 
providing a substantial increase in memory 
capacity. Go fer it! 



QU I Q Non-exclusive Statements 

You may not always want parentheti- 
^ cal statements in a variable re-valuation 

♦ ^ \ to be mutually exclusive, 
f^^* ) Consider a game where a player re- 
\i^tt( ceives 10 points for hitting at least ten 
targets, and a bonus of 20 points for hit- 
ting exactly ten targets. 
LET SC0RE=SC0RE+ 
(10 AND H>9)+ 
(20 A^D H=10) 
When H is ten, both expressions are. 
8 tni9^nd SCORE is incremented by 30, 
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*** MAX DOS *** 

A study of DUAL DOS in the TS-2068 

For several weeks UPDATE has been testing TWO 
SIMULTANEOUS Disk operating systems in the TS-2068. 
This is the Oliger SAFE DOS and the Larken DOS. The 
hardware hook-up is the FULL "two board" Oliger 
system and the Larken LKDOS cartridge in the Dock 
Port. Extensive operation with the combination has 
revealed an almost complete ccwpatability between 
ths two systems. The only inconpatabilities are 
minor and will be discussed. For the the test two 
disk drives were used, but a single drive could have 
been used as well. Drive zero had a disk formatted 
as a Larken Disk, and drive 1 had a disk formatted 
as a Oliger disk. 

In the beginning the Oliger V2-40 EPRQM was 
being used. Actually the instructions provided with 
the Larken^ LKDOS car tir-idge calls -for -the removal «f - 
the Oliger "board A" which contains the SAFE EPI?OM. 
But I'm adventurous and I decided to keep both 
Oliger boards in and see what would happen. The 
system seemed to work O.K. Both the Oliger DOS and 
tte Larken DOS operated normally. After about a 
week of operation I kinda got used to having DOUBLE 
the amount of EXTRA BASIC functions. All of the 
Oliger functions worked and so did all of the Larken 
functions. AND, it did not make any difference 
which DISK was used for actual SAVE and LOAD. In 
fact, ALL of the SYNTAX structure for BOIH systems 
can be used in program lines, or can be used in the 
direct mode. We will explore this a bit. 

Oliger SAFE commands use the slant bar "/" as a 
designator. Example: "SAVE/ "tiUe". The Larken 
comnands use <PRINT# 4: SAVE "Title.Bl">. The disk 
in use is selected by <LET/d=0> or <PRINr# 4: GO TO 
1>. Now suppose a program line were: <100 

SAVE/"file 1"DATA a$(): PRINT #4: SAVE "file 
l.a$"DATA $()>. The TS-2068 accepts the syntax and 
the line enters OK. When the line executes, the 
first comnHnd results in the disk "automatically 
switching" to the Oliger disk and the data file is 
SAVED to the Oliger disk. Next, the Larken syntax 
results in an automatic switch to the Larken disk, 
and a SAVE of the same data file to the Larken disk. 
Both systems "remeni>er" its own disk as elected by 
<I£T/d=> for Oliger, and <PRINT#4:Q0 T0> for Larken. 

Likewise, all other disk commands and all Extra 
Basic commands operate exactly as they would 
noniBlly. The nice part is that all of these 
functions are additive, and operational as ONE BIG 
DOS. The Oliger FAST FCR counter works with LARKEN 
programs. The Larken Window functions work with a 
Oliger program. In fact, a program loses its 
idenity as a Oliger program or a Larken program. It 
can be saved or loaded in either disk format. Qie 
can coose which simply by using one DOS SAVE or LOAD 
comnand, or the other. Now, if I receive a disk 
from someone, I can load it if it is in either 
format. One can operate entirely with one disk 
format if he chooses, AND use All of the extra basic 
functions of BOTH Larken and Oliger systems. But 
there are strcsng advantages of using two disk 
formats. 

Each of the two systems commands the Disk Drive 
through the Western Digital controller chip. There 
are certain Files Management functions which are 
more versatile when using the Oliger format, and 
others that give more capability when using the 



Larken Format. So the use of two diskettes does 
provide more options of disk files management. In 
effect, "MAX DC^" is controlling double the amount 
of disk storage- two diskettes under automatic 
controll. Now "MAX DOS" is own coinage. I 
wanted something that would denote a BIG Disk 
Operating System, as opposed to "a choice of one or 
the other". Besides, I always like to twit the IBM 
users. Their "MS DOS" sounds like a "mess", while 
"MAX DOS" sounds like the "mostest". 

Compatability with Existing Hardware: Both 
Oliger DOS and Larken DOS are conpa table with the 
Spectrum ROM Switch. Both are conpa table with the 
Zebra OS-64, but the LKDOS Cartridge takes up the 
Dock Port. The Larken literature discribes an 
additional IC that can be piggy-backed to accept 
eitter tte OS-64 EPROM or the Spectrum ROM IC. 
UPDATE has not tested this modification. The SPDOS 
software on'Disk is conpa table with both Larken- and 
Oliger sys tests, _ _Tlie JLoadijig of SHX)S would give a . 
third FORMAT and enable tte use of RAMEX disk 
programs. 

OOMPATABILITY of EPRCMS: UP-DATE received the 
new Oliger V2-52 EPROM and the system crashed when 
the LK cartridge was installed. A call was made to 
John caiger who seemed confident that the conflict 
was caused by "two different brands" of EPROM used 
by the two s^^ terns. Apparantly the EPROM that has 
the "penthouse" on top cannot be used with the 
Larken Cartridge. I sent an old "flat top" EPROM to 
John for re-programming. When it was returned, the 
compatability was restored. Since then, all of this 
magazine issue pages have been prepared and printed 
with BOTH DOS systems installed. One 
ncxi-compatability exists. Both Larken and Oliger 
systems have NMI functions. These fimctions clash 
and the NMI button cannot be used. To date, this is 
the only conflict found. 

Conclusions: MAX DOS is a reliable combination 
of two very capable disk operating systems, and two 
excellent Tool Kit extensions of the Basic language. 
This contoination operates as if the two systems had 
been designed as one large system. The tool kit 
extensiors are not just Basic Commands, but are 
groups of functional routines. MAX DOS provides as 
many disk management functions as any DOS used by 
any conputer. The extra tool kit functions greatly 
extends the job tasks that the conputer can perform. 
These new functions are many and are unique. No 
other conputer has them in their repertoire of 
functions. Some of the notable attributes of MAX 
DOS are listed below. Then a sample bit of 
programming will be given to conclude the report. 

1. Disks prepared by either Larken DOS or 
Oliger DOS can be read by MAX DOS. 

2. Disks may be prepared for use by others who 
have single Larken DOS or Oliger DOS. 

3. The plethora of Extra Basic Tool Kit 
functions of Oliger DOS and Larken DOS are coirioined. 

4. The Larken and Oliger Comnand Syntax for 
both Disk operation and Tool Kit Basic may be mixed 
in programming. 

5. The system exercises direct conrol of two 
disk drives simultaneously. Switching is automatic. 

Q 6. The system makes use of the excellent Oliger 



printer driver in EPROM. No need to load another 
printer driver. 

7. No RM memory is used by either Oliger or 
Larken DOS, thus MM DOS does not use any RM. 

8. The TS-2040 printer is direcUy supported, 
simultaneously with a Centronics printer, or 
separately. 

9. Direct low res Screen Copy is available by 
simple command, 

10. No conflict with Spectrum ROM, or any Extra 
Memory device. 



9000 BORDER 1: PAPER 1: ItK 7: C 
"LS : LET 7p=o: RANDOMIZE USR 100 
: OPEN #4,«dd" 

9030 PRINT AT 10,0; "Install Form 
atted disks in: '"Oliger Format 

in Drive 0"" "Larken Format in 
Drive 1"" '"Enter When Ready": P 
AUSE 0: CLS 

9040 PRINT AT 10,0; "SELECT: "< 
1> To Move Screens TO LARKEN DIS 
K"""<2> To Move Screens TO OLIG 
ER DISK": INPUT b: IF b<l CR b>2 
THEN GO TO 9040 

9050 PRINT AT 10,0; "Which way to 
Move?"""<l> Oliger to Larken"' 
•"<2> Larken to Oliger": INPUT c 
: IF c<l CR c>2 THEN GO TO 9050 
9060 CLS : PRINT AT 10,0;"Instal 
1 Disk in Drives" ""Then ENTER": 
PAUSE 0: CLS 

9070 INPUT "Number of Screen fil 

es to move? ";m 

9080 PCR n=l TO m 

9085 IF b=l THEN LET /d=0: CAT : 

INPUT "Screen file Name?";a$: L 
OAD /a$SCREBN$ : LET a$:=a$+".Cl" 
: PRINT #4: GO TO 1: PRINT #4: S 
AVE a$SCREEN$ : NEXT n 
9090 IF b=2 THEN PRINT #4: GO TO 

1: PRIMT #4: CAT "",: INPUT "Sc 
reen file Name?";a$: PRINT #4: L 
OAD a$SCREEN$ : LET /d=0: SAVE / 
a$SCREEN$ : NEXT n 
9100 STOP 
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CTM MAGAZI^E QUITS 

Chet Lantoert, owner publisher of CTM Magazine, 
announced in the June issue of CTM that he is 
quitting publishing CTM magazine. I regret that CTM 
is finished and wish Chet and Tina well in whatever 
they decide to do. CTM was oriented toward the 
support of Amateur Radio Curators and has 
contributed eminently to the furtherance of PACKET 
Telecomuni cations. Chet really tried to develop 
support for the Timex-Sinclair users, by fulfilling 
the remaining subscrition obligations of TS Horizons 
when it quit publishing. Many TSU subscribers did 
not realize that Chet did this FREE. 

A Monthly magazine requires a steady volume of 
industry advertising to support costs. The lack of 
advertising support from Amateur Radio suppliers 
reveals a steadily declining market for Amateur 
equifxnent. Being a licensed Amateur Radio Opestor, 
I can express my belief that the decline in the 
narket is caused by our own ARRL , which pursues a 
diehard policy designed to limit the licensing of 
new General Class operators and thus avoid growth. 
The result is an aging "old fogy club" wanting to 
guard their ranks and unwilling to up-date with 
modem equipment. 

Teleconiunications with RADIO and COMPUTERS will 
be the break through in the 1990' s. Chet had a 
vision of this with PACKET. Unfortunately the 
doddering old fogy ARRL wants to keep on keying away 
nonsense with Morse Cbde and twenty year old Comm 
gear. The result is a stagnated radio industry and 
a lack of opportunity for a fresh new magazine like 
CTM to survive. So, Conputerists must take up the 
challange and develop Telecomuni cations. I kinda 
got carried away, excuse me. Good Luck Chet and 
Tina! Stop by when you're down this way and I'll 
take you sailing. 



Did you know: 

'that data is moved to / from cassette at a rate of about 150 
chrs per second? 

' that data is moved to / from disk at a rate of about 10200 chrs 
per second? 

'that disk is about 68 times faster than cassette? 



that the ordinary jogger jogs at a speed of 4 mph 

•that if you jogged as much faster than the ordinary jogger, as 

disk data transfer is faster than cassette data transfer, then 
you would jog at a speed of 172 mph? 

'that a flea can jump more than 20 feet? 

•and his departure accellertion is more than 60 G's? 

•and if you could jump as far, in corrparison to size, you could 
jump from Miami to Detroit? 

-three hops Coast to Coast, then three to Alaska, one to Attu, 
another to Japan, then 6 hops across Asia to Siberia, and 4 more 
to the East Coast- around the Wbrld in 18 leaps 1 
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Airplanes would be obsolete if only we humans had comparative 
hopping abilities as fleas! 
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"DOS-64" A Review By Pete Fischer 

"Phoenix Pete" Fischer is TEE GURU 
of TS-2068 Telecomputing, having 
written a book on the subject. 
Thanks "P.P" for this nice 
input. Your expertise is always 
welcome in the pages of UPDATEl 

ABSTRACT: This is a review of MakeDOS-64, a 
machine code system which allows use of the 
OS-64 cartridge code on an AERCD Disk Drive 
without loss of Aerco DD commands, and with 
access to the full 256K ram via bank switching, 
(review by Pete Fischer) 

Short Description of DOS-64 



DOS-64, like the OS-64 cartridge itself, 
sits in the Doc± Bank. However, it DOES take 
away a small portion of ram in the Home Bank. 
It features the full use of AEROO Disk cont- 
mands, just like the AERCD version of OS-64, 
but that version gives you only 17K of BASIC 
area. This version keeps the normal 33K that 
OS-64 would leave you. It also includes a 
number of other features not found in either 
the Aerco DOS nor the OS-64. Read on! 

Description of the OS-64 Cartridge 

Before I go into MakeDOS-64 itself, 
though, let me describe the OS-64. It's not as 
cut and dried as it first se«ned. True, you 
just plug it into the cartridge port & turn on 
the machine. But it's not QUITE that sinrple. 
For one thing, you've lost nearly 5K of free 
memory at the bottom of BASIC. This is never 
discussed in the Zebra docs. Thus, loading any 
program longer than 33+K will crash the 2068. 
Also, you've lost some of the coiwnands in 
BASIC. FLASH is useless, since it required 
Display File 2 in order to work. Once you set 
either PAPER or INK, the other is set to it's 
compliment, (i.e. PAPER 4 [green] will set the 
INK to 2 [red]). This change effects all the 
ink on the page- so that it's impossible to 
have more than one color of INK on any page. 
Also, you can't change the BCRim to a dif- 
ferent color than the PAPER. You also lose 
BRIGHT and INVERSE. 

Jeff Street, the Zebra programmer who 
wrote OS-64, DID manage to include printer 
drivers for 4 Centronics interfaces, namely, 
the Aerco/Oliger, Tasman-B, Tasman-C and A&J. 
The 2040 is NOT supported. These are meant to 
drive Epson- conpatible printers. But you can 
also load your own custom driver, and the docs 
tell you where to load it and how to call it 
(can be either Centronics or serial). 

Since screen display uses display file 2, 
a normal SCREBN$ will not work to SAVE or LOAD. 
You must SAVE/LOAD two seperate CODE files in 
order to deal with a SCREEN in 64 col mode. 

At first I thought a BASIC program had to 
be specially written for OS-64. But then I 
thought, wY^ don't I just LOAD in a program 
written for 32 col., and see what happens? 

So I did, and to my surprise and delight, 
most things worked. There WERE problems; such | 



as when a program used 2 or more INKs in the 
same menu. The screen would flash through all 
the different colors as it printed out the 
screen, finally ending up with green ink and 
red paper which was unreadable even on my RGB, 
So I had to fix all those (this can take some 
time on a long program). 

Any text which was centered in 32 col. is 
new to the left, and depending on how the 
PRINT comirand was used, some lines of text may 
stop at 32 col, while others go on to 64 col. 
So these PRINT statements may need some editing. 
But once you've converted a program, it's done. 
You never have to do it again. 

So what is the advantage of 64 col.? The 
first attraction to me was the capacity to run 
Zterm-64. But the small buffer and bugs made 

_-that program less appealing. 

It lets you put twice as many columns on 
the screen, with the same number of rows. This 
doubles the information on a page. This is 
particularly useful when you're using software 
that stores and displays lots of data, such as 
word processing, spreadsheet, accounting, 
database or telecommunications. It can make 
much better menus, as I always seem to run out 
of screen before I run out of options. You 
will see less of the "scroll?" prompts on 
your screen. Although I can't help but wish we 
had more rcws as well as more columns... 

Cne last note on the OS-64, if you have 
the JLO disk drive, you need to have OS-64 ver 
1.72 in order to use the NMI "snapslDt" save. 

The Difference Between OS-64 & DOS-64 

The main difference is conplete compat- 
ibility with the Aerco system without any 
loss of free ram. Also of critical interest is 
the access to the full 256K rambank via bank 
switching. These banks can be had by a simple 
OUT comnand. Oh, what wailing and gnashing of 
teeth could have been saved if Aerco had sold 
this software with their 256K upgrade 1 (NOTE: 
In his recent book on advanced M.Code Program- 
ming on the 2068, Dr. Lloyd Dreger discusses 
this scheme of access to the 256K. He gives 
credit to David Hill. Keith Watson wrote the 
code originally, and gave it to David to 
publish in his newsletter. This is just a 
misunderstanding on Dr. Dreger 's part). 

Another feature that Keith worked in is a 
program by Jack Dohaney called KEYWORDS. For 
those of you who are unfamiliar (as I was) 
this program allows you to enter the TIMEX 
BASIC keywords, one letter at a time. This is 
useful to those who have custom keyboards 
without legends. You can toggle this feature 
an and off with a PRINT USR statement. 

There are two additional character sets, 
BOLD and IBM PC style. These improve readabil- 
ity on marginal monitors. 

You can alter the total maximum number of 
directories on a disk. We always coiplained 
that 31 was too few. But now that the number is 
doubled for DD diska and tripled for QD disks, 
it seems to take a significantly longer time 
for the system to search a directory. This 
gives you the best of both worlds. 

While it's true you can "customize" the 



UPDATE July 1988 
Articles & Reviews 



CS-64 cartridge for a large number of options, 
you do so using POKE statements which must be 
re-entered every time you turn on the confputer. 
Since Make-Dos comes off a disk, however, you 
can customize it once and for all (and easily 
re-configure it later). Then, you save the 
customized version and DOS-64 "Wakes-up" in 
any setup you want! 

This "customizing" is done by a menu- 
driven program that's quite painless and easy 
to follow. This is MakeDOS. All four of the 
original printer drivers are still there. You 
can choose one of those, or your own custom 
driver as permanently enabled. You can also 
dioose various printer configurations such as 
line length, and print density. There is also 
an option, to increase the total of nuntoered 
lines in BASIC from 9999 to 16383. 

THE GOOD POINTS 

1. Periranent 64 Col. display with com- 
pletely normal DOS operation. 

2. Full access to the 25 6K ram upgrade. 

3. All the original, printer drivers of 
OS-64 are there and any one can be 
permanently enabled. 

4. There are 2 new character sets, 

5. Jack Dohaney's KEYWaiDS program is 
available for use. 

6. Most 32 column BASIC programs are 
compatible, or require minor modifi- 
cation. 

THE BAD POINTS 

1. I miss a hardcopy manual for this 
product. You don't need one much, but 
it's good to have. 

2. Some of the explanations given on the 
help screens are a bit technical. For 
technical users, they will be welcome. 
But others may be thrown. 

3. You lose about 5K of BASIC (which you 
also lose with OS-64) 

"I was just writing something for my own 
uses." That's how Keith described it to me in 
his self-effacing manner. He ended up spending 
several hundred hours and many calls to AEROO 
to get the straight story on the 256K. How nany 
really great software packages started out as 
someone writing something for their own use. 

This software is available from RMG, who 
has gone to great lengths to support AEROO 
users. It costs $15 +$2 P&H. Or from Keith. 
Brilliant programmers are worth sufporting. 
See pg 14 of January UPDATE for 
addresses of Suppliers. 



to be used with <G0 SUB zb - or GO SUB ts>. The 
ts routine: <9000 OUT 255,0: PAUSE 10: OUT 
244,0: CLS: RBTURN>. The zb routine: <9002 OUT 
255,62; PAUSE 10: OUT 244,3: CLS: RErURN>. 

Just remember that when you have a Z^ra 
OS-64 cartridge installed, all LFRINT, LOAD, 
SAVE, commands exercise the routines in the 
OS-64 ROM, and NOT the normal TS-2068 EXROM. 
Therefore one must always be in the 64 col 
(OS-64 Display) before using these commands. 
Otherwise a crash will result. Preceed all 
LOAD, SAVE, LPRINT comnands with <Q0 SUB zb>. 
If you want 32 column presentations on screen, 
<Q0 SUB ts> first. If you want 64 col screen, 
<Q0 SUB zb>. Neat, eh? 

The review article by Phoenix Pete came in 
in a MSCRIPT file, which gave me a chance to try 
out the "MS-TAS" utility to print it without 
loading the MSCRIPT software. I always get 
tangled up with Mscript's and Tasword's 
elaborate Control Codes for trapsying around in 
the two programs. So, the following Utility was 
developed and tested to print mscript files 
without need to have mscript loaded (or to learn 
it dum it). Note that Pete's text has a ragged 
right margin, which gave the other "MS-TAS" 
utility a problem. This was solved by using a 
"variable stepping counter" to end the line 
print each time a ENTER (code 13) is detected. 
Note that the last input of "line width" in line 
9000 results in POCING the MAXIMUM printer line 
to the Aerco prcode. 

Then counter "n" is stepped to the "line 
width". However the n counter STEP is a pseudo 
value. It could be any figure "more than the 
longest line to be printed". This is because at 
line 9015 the "y" counter stops when a code 13 
(ENTER) is detected. Then the "n" counter is 
set back, so that when it STEPS it will step to 
the memory address of the next character to be 
PEEKED and printed. Chomp on that a bit and you 
may get some more ideas about making STEP in a 
FOR counter a variable figure. 

Now Pete just assumed that I'd load up 
Mscript and print his document, so he didn't 
tell me what address the code started, nor its 
byte length. So, the "FIMD" routine at line 
9965 was added. <G0 TO 9965> will find START 
and END memory addresses of the Mscript code 
file and print the info on screen. Then <RUN> 
and use this information for the INPUT PROMPTS 
after the DATA disk catalog is on screen. 

In line 9000, the prcode file name. 
Randomize #, and the line width POKE, are for 
the prcode version given in the Apr/July Issue 
Disk. Your customized Aerco prcode may need 
different figures. This utility will be 
included in the October (next) Issue Disk (no 
room in the current Apr/July disk). 



The Mscript File Printer 
that printed the above Article 

UHDATE Addendum: The Zebra QS-64 cartridge 
provides a nice 64 column display, yet when a 
menu or information display does not require 
such packing on screen, the regular 32 character 
display provides more comfortable reading. The 
OS-64 does not LOCK one into the small print of 
a 64 column line. Qie can switch AT WILL 
between the two display files. When the 32 col 
display file is switched IN, all of the color 
attributes may be used for glorious screen 
displays. Following are two "switch routines" 
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8980 REM * MSCRIPT FILES PRINTER 
8985 

8990 CLOSE #2: BORDER 0: PAPER 0 
: INK 7: CLS : PRINT '"TAB 8;" 
TS-2068 UP-DATE""'"* Utility t 
o PEEK and Print out MSCRIPT Da 
ta Files from Disk."""* Does 
not require Word Proc to be loa 
ded. « " "* DOES Require? " " "1. A 
erco or Oliger Printer intfc 
to be installed. """2. Centrcxii 
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cs Printer -ON- READY" ' ' • "SET E 
QUIHffiNT, THEN ENTER": PAUSE 0: 
CLS 

9000 CXJI 244,1: CflT "Cclear.bin" 
,: CAT "QjrcxxJe.bin",: RANDQMIZ 
E USR 64500: INPUT ; "Install Da 
ta Disk, ENTER" ;y$: CAT "",: IN 
POT "Input MS-TftS Disk File Nam 
e (all between Quotes ).";z$ 
: IM'OT "Input File Starting Ad 
dress" ;sa: INPUT "Input File By 
te Length" ;bl: INPUT "Printer L 
ine Width"; 11: INPUT "Start lin 
e count?" ;Lc: INPUT "Total C3ol 
Lines?";tc: POKE 64504,11-1: CA 
T "z$". 



9002 OPEN #2,"p": FCR n=sa TO sa 

+bl STEP 11 

9005 FCR y=n TO n+11-1 

9010 LET c=PEEK y 

9015 IF c=13 THEN PRINT : I£T n 

=y+l-ll: 00 TO 9027 

9020 PRINT CHR$ c; 

9025 NEXT y 

9027 LEI lc=lc+l; IF lc>tc THEN 
PRINT : CLOSE #2: LET lc=l: 00 
T 127,12: BEEP 1,20: CLS : PRIN 
T "Adjust Page, THEN ENTER": PA 
USE 0: OPEN #2,"P" 
9030 NEXT n 
9035 CLOSE #2 



9040 PRINT ""<!> For next file" 
""<2> To Quit": INPUT "Choice? 

";a: IF a<l OR a>2 THEN GO TO 

9040 

9045 IF a=2 THEN STCP 

9050 GO TO 9000 

9060 REM ** Find Start and End 

of MSCRIPT file. 
9965 LET a=l: FCR n=46000 TO 653 
67 

9970 IF PEEK nOO THEN PRINT "S 
tart Adr=";n: GO TO 9990 
9975 NEXT n 

9990 FCR n=n TO 65535: IF PEEK n 
=0 THEN PRINT "Ehd of File=";n 
: STOP 



DENSE PACK BASIC, and the use of LOGICAL OPERATCRS 

There has been a considerable amount of questions and interest about Dense Pack 
programming techniques an* tiie use-of-Boclean ^xjgici — While larowsing throogrranttque ZX' 
ptfolications I came across an interesting article written in 1983 by Sharon Aker (Where 
are you now Sharon?). Since Sharon's article merges nicely with my fedsle attempts to 
explain the use of Boolean Logic in Basic programming, her excellent article is 
re-printed. Also interesting is the setting: The time- Sept. 1983. The computer- 
Sinclair ZX-8I with IK total Ram. Boolean Logic is useful in programming ANY computer 
and can provide increased programming efficiency. 

The Logical Operators ShamnZardettoAker 

AND and OR have two distinct us- 
ages in Sinclair Basic. One mirrors their 
use in English and is easily understood; 
the second is less straightforward, but is 
an extremely versatile programming 
technique. NOT, the third logical op- 
erator, is unfortunately overlooked or ig- 
nored by many beginner programmers; 
it, too, can be a powerful programming 
tool. 



You must understand the computer's 
view of "truth": a true condition is 
"1 "; a false condition is "0". 



AND and OR 

IF A<10 AND B<10 THEN. . . 

IF A<10 OR B<10 THEN. . . 

In the first example, the command 
following THEN is executed if both con- 
ditions are true (the conditions being 
A < iO and B < 10). In the second exam- 
ple, as long as either condition is true, 
the command will be executed. 

AND has a higher priority than OR 
and is performed first regardless of its 
position in the conditional statement. 
IF X>5 OR Y>5 AND Z>5 THEN. . . 

This statement sets up two conditions: 

1) X>5 

2) Y>5 AND Z>5 

Since they are linked by- OR, either one 
being true will cause the command to be 
executed. 

To circumvent the computer's auto- 
matic ordering of operations, paren- 
theses should be used. 
IF (X>5 OR Y>5) AND Z>5 THEN... 

The two conditions in this statement 
are: 

1 ) X>5 OR Y>5 

2 ) Z>5 

Since they are linked by AND, both con- 
ditions must be true for command 
execution. 
You should note that, in this last 



example, there are actually two combi- 
nations that will satisfy the computer's 
truth-check: 

1) X>5 AND Z>5 

2) Y>5 AND Z>5 

Instead of IF-THEN 

AND and OR also have another, en- 
tirely different, usage in Sinclair Basic, 
one that allows you to combine several 
IF-THEN statements into one logical 
statement that does not even use IF- 
THEN. 

IF A<10 THEN GOTO 125 

IF A=10 THEN GOTO 300 

IF A>10 THEN GOTO 480 
can be rewritten: 

GOTO (125 AND A<10)+ 
(300 AND A=10)+ 
(480 AND A>10) 

To translate this into understandable 
English, read each AND as "if." The 
computer looks at each one of the par- 
enthetical statements and checks the 
truth of the expression following AND. 
If that conditional statement is true, the 
value of the parenthetical statement is 
set at whatever precedes AND; if the ex- 



pression is false, the statement is as- 
signed a 0. 

So in this last example, if A is 14, the 
line will work out as in Figure 1. The 
computer will GOTO 480. 

Mutual Exclusivity 

The parenthetical statements in the 
above example are mutually exclusive; 
that is, if one is true, the others have to 
be false. That is not always the case, and 
you should plan carefully in a situation 
like the following: 

IF N<10 THEN GOTO 100 

IF N=10 THEN GOTO 150 

IF N<20 THEN GOTO 200 

Obviously, N can be less than 10 and 
less than 20 at the same time; so can it 
be both equal to 10 and less than 20. As 
long as the IF-THEN statements are in 
the right order in your program ("right" 
depends on the effect you want), there is 
no problem because the computer will 
act upon the first true statement it en- 
counters and never see the one(s) 
following. 

However, if you rewrite these state- 
ments using the logical operators, you 



GOTO ( 125 AND A<10) 

false 
GOTO { 0 ) 



(300 AND A=10) 
f a I se 
(0) 



(480 AND A>10) 
t rue 
(480) 



GOTO ( 100 AND N<10) 

false 
GOTO ( 0 ) 



( 150 AND N=10) 
true 
( 150) 



(200 AND N<20) 
true 
(200) 
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would have a big problem. If N is 10, the 
computer would make the evaluation 
found in Figure 2 and execute GOTO 
350. 

Further definition of one or more of 
the conditions, until the parenthetical 
statements are mutually exclusive, is 
necessary. For instance: 

IF N<10. . . 

IF N=10. . . 

IF N<20 AND N>10. . . 

Written logically, 

GOTO (100 AND N<10)+ 
(150 AND N=10)+ 
(200 -AND (N<20 AND N>10)) 

In the last parenthetical statement, 
the first AND operates as "if." The sec- 
"DUd AND operates in its usual maimer^ - 
requiring that both conditions be true 
for the total expression to be true. The 
inner parentheses are not strictly nec- 
essary, since the first AND will always 
be used as the "if; they were included 
here only to make the example clearer. 

Other Commands 

Since the entire logical expression 
boils down to a number, it can be used in 
place of a number with many different 
commands: 

PRINT AT (5 AND Z>14)+ 

(2 AND Z<5) , 10; ' 'OKAY' ' 
PLOT X, ( 17 AND B=12)+ 

(27 AND B012) 
GOSUB (500 AND L=10)+ 

(800 AND M=10) 
PRINT (0 AND N<>10)+ 

(N AND N=10) 
PAUSE (120 AND T<10)+ 
(380 AND T>=10) 

Strings 

Strings can also be used with logical 
statements. If the conditional expression 
is true, the parenthetical expression is 
"equal to" the string before AND. If the 
conditional expression is false, the state- 
ment is considered to be an empty 
string. So: 

IF A>B THEN PRINT ' 'TOO HIGH' ' 
IF A<B THEN PRINT ' 'TOO LOW ' 
can be rewritten as: 
PRINT ("TOO HIGH" AND A>B) + 

( • 'TOO LOW • AND A<B) 
When A is larger than B, the statements 
will be evaluated: 

PRINT ( "TOO HIGH" ) + ( ) 

You can also assign a string value 

with this syntax: 

LET P$=( ' 'TOO HIGH' ' 
AND A>B)+ ' 

( ' ■ TOO LOW • ' AND A<B ) 
A logical expression for strings or 
numbers does not have to consist of 
alternative choices; a parenthetical logi- 
cal expression can be inserted into 
an otherwise straightforward command. 
Consider a program that would display a 
multiplication problem of two randomly 



generated numbers (A and B) and a 
player's answer (C). If the answer is 
wrong, you might want it marked with 
an asterisk. 

PRINT A; ' ' * • ' ;B; 
TAB 10; ( " * • ' 
AND C<>A«B);TAB 11;C 
If the answer is correct, nothing will 
be printed at TAB 10. 

Variable Re-valuation 

Logical expressions that change the 
value of a variable are easy to use. Here 
is one example, and the ways it would be 
evaluated. 

LET X=X+(5 AND B<A) + (7AND B>A) 
I f B<A X+ (5) + (0) =(X+5) 
- f T B>A to r -F" tr) -=-tX^T r 

I f B=A X+ (0) + (0) =(X) 

As you can see, there is no need to 
write a statement for the B=A possibil- 
ity if you want X to remain the same in 
that situation. 

If the variable is to be decremented, 
change the plus sign to a minus sign: 

LET N=N+(5 AND P=0)- 
(5 AND POO) 

This will be evaluated in one of two 
ways: 

I f P=0 : N-l-(5)-(0) = N+5 
I f POO: N+(0)-(5) = N-5 

Using OR 

While AND is used for strings and 
numbers, and variable re-valuation 
involving addition and subtraction, OR 
is only practical for re-valuations involv- 
ing multiplication or division. A study of 
the chart in Figure 3 might help you 
understand why this is so. 

When OR is used in this construction, 
read it as "unless": 

LET N=N* ( 10 OR A>B) 

If B is less than A, the statement is 
true. It is evaluated as 1 (as noted in the 
chart), and reads: 

LET N=NM1) 
and the value of N does not change. 

If B is not less than A, the parentheti- 
cal statement is assigned the value of the 
number before OR: 

LET N=N*(10) 

So, N is multiplied by 10 unless B is 
less than A, in which case N remains the 
same. 

If you were writing a program to cal- 
culate new prices for merchandise going 
on sale, where items less than $100 were 
to be reduced by 10% and all others by 
20%, your statement would read (P is 
the current price): 

LET P=P*(-8 OR P<100)* 
(.9 OR P=100) 

The evaluations are: 

I f P<100: P* ( 1 ) ( .9) =P* .9 
I f P>=100: P* ( -8) ( 1 ) =P* . 8 



Applications 

If you would like a command exe- 
cuted every second time it is en- 
countered in a loop, use NOT to change 
the true/false value of a variable back 
and forth. With: 

I F V THEN . . . 
at the beginning of a loop, and: 

LET V=NOT V 
later in the loop, V will be true on every 
other loop. 

By using 

LET E=N/2-INT(N/2) 
E is zero whenever N is an even number. 
To have a command executed only when 
N is even, use 

IF NOTE THEN. . . 
Similarly, — — 

LET l=N-INT N 
means that I is zero whenever N is an 
integer, and 

I F NOT I . . . 
will be a true condition when N is a 
whole number. 

Priority 

NOT is assumed to apply only to the 
number to its right, unlike the other 
logical operators, which automatically 
apply to an entire expression. 

NOT B<C 
is interpreted as: 

(NOT B)>C 

NOT has priority over both AND and 
OR, so the following conditional state- 
ment would be processed in the order of 
innermost brackets first: 

IF [[[NOT A] AND B] OR C] 
The use of NOT can, of course, be al- 
tered by the use of parentheses. 
NOT 

To make use of NOT, you must first 
understand the computer's view of 
"truth." Conditions in an IF-THEN 
statement are evaluated, and a true con- 
dition is assigned a one, while false one 
are assigned zero. (Note the "result" col- 
umn in Figure 3.) 

Furthermore, any mathematical ex- 
pression whose result is zero is consid- 
ered false, while a non-zero result (even 
a negative number) is true. 

NOT changes the true/false value of 
an expression: 

If A is false, NOT A is true. . 

If A is true, NOT A is false. 
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About half of the subscribers to UP-DATE are 
owners of both the TS-2068 and tlie Sinclair QL, the 
latest member of the Orphan Computer family. 
Comments received about the QL range from pure 
disgust to enthusiastic praise. But there is one 
common denominator amongst the QL owners and that is 
a desire to learn how to use this strange conputer. 
It is indeed a strange one (to me) and one that 
requires a considerable amount of study. Having 
only recently purchased a QL, I flat not yet ready to 
become your QL Guru. So, let us begin learning the 
QL together while continuing to treat our TS-2068 as 
our primary system. Eventually the QL will become a 
work horse to endure for many years to come. But I 
-am^— «ure -fchat— iny^^2«68 system -wilt—never^te 
discarded no matter how useful the QL becomes. 

We TS-2068 users enjoy several advantages when 
we begin to use the QL. First, with few exceptions, 
all of our programming knowledge can be transferred 
to the QL. The key-words and tokens mean the same. 
"QL BASIC" just gives us an expansion of the 
language that we have been using. So, that part of 
the QL learning curve should come fairly easy. 
Since we can use our learned TS-2068 language, this 
allows us to program the QL in "simplese" while 
picking up the more advanced QL BASIC and Super 
Basic. Then, as we upgrade, still more language 
extensions and capability are added, such as "super 
tool-kit". In fact, the QL can become the most 
powerful of all personal computers available in the 
market places of the World, more powerful than the 
IBM XT. 

There is also a PLUS with equipment 
compatability. Our disk drives and monitors are 
compatable with the QL. I first started off sharing 
a pair of 80 track drives and a RGB monitor with my 
TS-2068. But that soon became too much of a 
switching job and I gave in and spent some money on 
a second pair of drives and a Magnevox RGB monitor. 
WHICH, leads us into the subject of EXPENSE to get 
going with the QL. One can go "whole hog" as I did, 
or progress in stages. A conposite monitor can be 
picked up for as little as $65.00 via catalog 
shopping while letting the budget build up for a RGB 
monitor. And, a full page width serial printer can 
be purchased for as little as $39.95. I have one of 
these old IBM thermal printers to do listings and 
scratch printing. 

There have been many comments to the effect 
that "By the time one buys disk drives, monitor, and 
Trump Card, one has enough invested to have 
purcliased a IBM Clone system". So, let us look at 
that first. "SYSTEM" is the key word. If you 
carefully examine the adverisments for IBM systems 
(Clones), you will find that a OOLCR system, with 2 
disk drives, with 600K of memory, will cost about 
$1800.00, Then you'll need to add a printer. My C?- 
system cost was: $75.00 for the QL, $300.00 for the 
Trump card, $300.00 for a RGB Monitor, which comes 
to $675.00. This is about the price of a "starter" 
IBM XT aone with only 256K of memory, no monitor, 
and one 360K drive. It would take another $900.00 
to upgrade the IBM to "aproximate" the capability of 
this QL system. 

Really we are comparing Zebras to horses. 
QL and the IBM are totally different critters, 
my way of thinking a IBM system locks one into a 
"closed system", while the QL provides -versatility. 
The Trump Card gives 896K of RAM memory, where the 
IBM is not that expandable. Even more ROM memory 
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can be tagged on in cartridges. Much is said about 
the need to be "IBM Compatable". For what reason? 
Why try to be compatable with an INFERIOR system, 
and when such conpatability reduces one to a lesser 
level of capability? The QL has more capability 
than the IBM XT. We just need to learn to tap that 
capability. If we need to conpare the QL with a 
computer of similiar capabilities, the computer 
would be the Northgate 386, a 32 bit CPU powerhouse, 
as is the QL. 

The price tag of the QL reveals a fact that 
needs to be understood by all. The conputer was not 
ready for marketing. Because of that, the reviews 
of the QL were all bad- very bad- CRUEL- and 
KillingI While (designed to sell for around $600.00 
for the basic Tiaehtne7~~revlews~killed it arehtts- 
price plummeted to $75.00. Now the few remaining 
QLs in stock are priced higher, and soon none will 
be available. An estimated 8000 QL computers were 
sold in the USA and Canada. So, we QL owners are 
rather few in numbers on this side of the Atlantic. 
However, the QL is a popular computer in the UK and 
supporting hardware and software are plentiful. 
Because of the low price and the known end to QL 
production, many American buyers bought a spare QL. 
I would advise any who did not to do so quickly. 

The QL, as it is purchased, has qmlity control 
deficiencies that need to be (must be) corrected. 
The easiest path to take is to send the QL to Tom 
Bent, 9015 Flicker Place, Coluntoia, MD 21045. Tom 
does a series of fixes that corrects the problems. 
I will go through these. 1. Tte QL Power regulator 
needs to be fixed. As purdiased it creates too much 
heat which causes crashes after a liour or so of 
operation. 2. Some CPU chips overheat and need to 
be evaluated, replaced if necessary. 3. The 
existing two ROM chips are high power consumers and 
need to be replaced with one EPROM which runs cooler 
and also corrects some ROM bugs. The new EPROM also 
contains several very worth while additions to the 
QL operating system which are normally sold in (add 
on) ROM cartridges. 

4. The IC that provides Television monitoring 
is removed (optional). This reduces both internal 
noise and relieves the load on the power regulator, 
but eliminates the capability of using a TV for 
monitoring. 5. The "Spider board" needs 

re-soldering. As purchased, the spider board has 
loose connections tliat cause crashes. 6. A lube job 
is needed! Tom uses WD-40 to free up the keyboard 
keys and make them operate snoothly. 7. The RGB 
output needs Buffering. All of these fixes are 
needed. You can either have them done or do them 
yourself. But for the QL to operate successfully, 
these fixes are necessary. Quantum Levels magazine 
has devoted quite a bit of space to describing these 
problems. 

To accomplish all of the above fixes, Tom 
charges about $65.00. This is really a tergain, 
especially if you consider that the addtions to the 
ROM, if bought in a Rom cartridge costs that much. 
Tom Bent is the Editor of Quantum Levels and one of 
the best auttorities on the QL. I highly recommend 
that every owner subscribe to Quantum Levels, 
which is the only North American publication 
exclusively devoted to the QL users. Quantum Levels 
started only about two years ago and I advise 
getting all back issues. A new QL magazine has been 
announced. "QL USA" has not yet published its first 
issue. If interested, write to: Bill Fischer, 419 
^rkwood Dr. E. , Orange Park, FL 32073 (editor 



publisher). 

So, new you know why one could buy a QL for as 
little as $75.00, which is far less than the total 
cost of the IC chips contained in the cotiputer. The 
QL simply was not ready to be marketed and Sir Clive 
payed the price for not fixing all of the bugs 
before going into production. Then the deficiencies 
in production line quality control was the final 
thing that did him in. One can look at it this way. 
We buy the computer in two stages. The first stage 
is buying the QL for $75 - $100. The second stage 
is getting its bugs fixed for about $65.00. Then we 
can go about assembling a SYSTEM, including the 
monitor, the printer, memory expansion, and disk 
system. This is a new concept for buying things and 
is kinda hard to get accustomed to. 

Presently there are two devices that provide 
Botli Meribry upgrade to 896K RM, additional ROH, and 
a Disk Drive controller. One is the TRUMP CARD and 
the other is the SANDY BOARD. Both contain extra 
ROM that provides a plethora of additional Super 
Basic functions. AND, both are quite expensive, 
around $300.00. One can delay such upgrades and 
still have a QL system that is quite capable, more 
capable and more powerful than a un-expanded IBM XT. 
The four Pi son Softwares, which cc«ies with the QL, 
are excellent and they represent a combined value of 
at least $300.00 when compared with any software 
group offered for the IBM. These three softwares 
work well with a un-expanded QL. Some users may not 
ever need more software capbility. 

The two Micro Drives are the legacies of Sir 
Qive Sinclair who spent a decade perfecting the 
highest speed low cost tape deck in the World today. 
While I prefer using Disk Drives, the two micro 
drives do add to the QL's capabilities. 

I have already found that the two micro drives 
provide excellent and reliable mass storage. 
Operation is faster than disk drive with the 
Commodore, but slower than disk drive with the 
TS-2068. Never the less, micro drive lets one wait 
until one's budget is ready for the expense of 
up-grading to Trump and a disk drive system. Even 
then there is a means available to upgrade in 
stages. The Trump card provides the huge memory 
expansion, plus a great increase in Super Basic 
functions, plus a disk drive controller, plus RAM 
DISK. The addition of disk drive can be delayed as 
tlie final stage of upgrade. RAM DISK with Trump 
Card lets one operate "as if there were a disk 
drive", then save the data or program bo micro drive 
when finished. 

Since most users liave a spare QL 

(insurance), why let the spare lay around collecting 
dust? It can be "networked" with the main QL by 
simple means of connecting a single conductor wire 
between computers. The distance limit between 
computers has not yet been found, but would 
certainly be as far as from one corner of the house 
to anotter. Since "networking" is an exclusive 
capability of tte QL you wont find much published 
information about the principle. This capability is 
usually the domain of very expensive "main frame" 
computers. Briefly, the . "networked" computers use 
tteir own memory for operation, plus that of the 
HOST computer, and can operate any peripheal that is 
attached to either. For example, my son can be in 
his room doing a college report. When finished, he 
serds the data to be printed with the printer that 
is connected to the main QL computer. During the 



process, the micro drives and disk drives that are 
connected to either computer can be used for both 
programs and data saves and loads. This is kinda 
mind boggling to me, but I'm inquisitive enough to 
"try" to take it to the limit. 

The Printer: There are some very good bargains 
in printers now a days, especially SERIAL printers. 
Serial printers connect directly to the serial I/O 
ports (2) of the QL. Most of us are not familiar 
with the computer syntax to print with serial 
printers. My first wed< of QL ownership was devoted 
to figuring out how to use a printer. This does it 
with a serial printer connected to Serial Port #2; 
<10 OPEN #4,ser2c> <20 BAUD 9600> <30 PRINT #4, "This 
is a Serial Printer"> <40 PRINT #4> <50 LIST #4> <60 
CLOSE #4>. Missing in QL Basic are our familiar 
LPRINT and LLIST. Instead we must OPEN a channel to 
the printer and then use P RINT or LIST. T o use a 
Parallel Centrbriics printer one needs to pur^se a 
Parallel Interface. 

A suggestion (as I am doing): To make myself 
learn the QL and QUILL, I am beginning to do all 
correspondance with the QL and QUILL, and my more 
serious data processing and publishing with the 
TS-2068. Later the priority may be reversed. How 
about "maintainability" of the QL? Well, we all 
have some experience with that subject, dont we? 
Already we have two sources for repairs, Tom Bent 
and Dan Elliott. And, if you think that IBM Clones 
are repaired everywhere, you are a good prospective 
customer for the salesman of snake oil, hair graving 
lotion, and astrology predictions. Even the giant 
Tandy Corp. does not have full repair capability for 
their IBM Clones. One does not buy maintainability 
when one buys a IBM Clone. 

So, belay your fears! The QL is a good 
computer, better than any other that one can buy for 
less than about $2000.00. It can be fixed when it 
breaks. It is expandable in stages. It will take 
us at least a year of study and usage to learn what 
the QL can do for us, and it will serve us well for 
many years. Now the QL user Group becomes another 
select group of independant thinkers, as unique as 
we TS-2068 users. Both refuse to ride the main 
stream of mediocrity. And neither accepts the idea 
that a popular Name Brand necessarily means the 
best. Both groups look to learning as a challenge 
and help each other to that end. Both groups will 
survive will take it to the limit! 

UP-DATE invites more qualified users to help 
out in coverage of the QL- to help us novices to 
learn this fine computer. The disparaging comments 
about the QL and its bugs in this article will stand 
as the only group of negativisms as UP-DATE launches 
into support of "Computing with the Sinclair QL". 
However "bug reports and the details of their fixes" 
will be covered, along with programming, software 
operation, the availability of products, and the 
whole range of user interest subjects. And, there 
are plenty of subjects to cover. After studying tlie 
Qi, manual, the Trump Card manual, and the Speed 
Screen manual, I have hundreds of questions that 
need answers. The QL is a BIG and highly 
diversified computer. I would compare the learning 
task with that of a stranger to San Francisco who 
has just been hired as a taxi driver. Fortuntely 
for us, we can learn a segment of functions at a 
time and continue to progress throt^h the learning 
curve. It shDuld be a lot of fun and also 
productive. 



FDD^ Express^ 

Vm. LEHERS 

Thought I Mould aention a i&t Bore letters I have received. 
Dear Ron, 

This is a cry for help' I'* coapleting the FDD Technical 
Manual. So far I've expanded the manual froa 33 to 76 pages. But 
I dm't even a systea. (I have a borrowed one.) I have 
descriptions and schematics of the TS2e68 Bus Adaptor, FDD 
Interface, FDD 3^ Controller, FDD Drive, and ftadisk drives. 
Also I've a good start on disasseabiing the TOS BASIC extension 
software. Where I need help is as follows: How «any versions of 
the FDD systea are there (ay borrowed systea is silver boxes)';* 
Does anyone know the three PAl.. logic^' Has anyone done a 
disassembly? What else do I need to know that I don't know? I 
^UljBak& alIJkhis.-initg!Ma.tim_ayaila bIe to any gnejoing ree^airs_ 
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Everyone is on notice to help Jack out any way possible. 
Dear Ron, 

I bought one of Zebra's early single drive systems (with 
it's probleas) and later added the second drive. I aa rather 
happy with ay systea now. I would be interested m knowing if 
anyone has dcaie auch with prograinaing for the Aadek DXY-lfiy 
Plotter, trfiich is addressed by Iprint coaaands, I would also 
like to know if anyone has produced a prograa to aake use of the 
2e68 sound capability. Dennis Bryant, 16148 Foliage Ave., 
Roseaotint, m 55«fe8 

Anybody who can answer this would be appreciated. 
Dear Ron, 

I don't reas^er if I read it in your newsletter or when 
' ~tal klig~to"Owen^Tnsna^ 

2968 prograa Profile 2668 to disk. Your series covered Tasworri 
but I don't even have that wordprocessor progras, so if that is 
coaing up I'll be looking fDr>»ard to that. Toa [Xtniop 

Look no farther, Toa, this is it. Actually, not even 
looking at the prograa froa way back when I transfered it, I can 
tell you that Toa Woods made tranfering the prograa I?CFOIBLY 
easy! Hopefully you have the full aanuai, because ail the 
infof^tion you need is right there. First, let's just f€R^ the 
loader prograa. ftow change the lines that LOAD the code and 
prograa to LOAD *, aakmg sure to keep the na»es slightly 
different. H I reae<^er correctly, both the code and the BASIC 
had the sase naae, which wi tape isCRiIdn t isatter. So just renase 
the code "p/f" and the ptx^graa "prof lie. bas". Now SAVE ♦ 
"profile" LINE 1. That takes care of the loader. r-eioad the 
original loader ftnia tape, and in fact go through the entire 
loading process. Or»ce you get the prosit to Create or Load a 
file, press CAPS SHIFT-EDIT, which will get rid of the quotes, 
and then ST(F. Now SAV€ ^-p/f" CODE 63488,2646. Now LIST the 
Profile prograa you have in your coaputer. If you see only a 
blank screen, then just change the m. color to white: IM^: 7. 
Change the necessary part of line 107 to SAVE * f$ LIf£ In. Be 
sure to use the trailing "n", so that the prograa will overwrite 
the existing file on disk (if you want to do that). Change the 
part of line 55ie to LOAD * f$. Now SA'^ *'=praf ile.bas" LIfC 
9996. Afid yo<j should have Profile on disk. There are soae 
iaproveaents that can be done. For esa^le, I included a small 
section after the "L" or "C" prosit to do a CAT * if I choose 
"L". That way, I can see just t^at files I have to load. 1 also 
set up ay version to autoaatically add the "".+11" extension tc a 
naae i saved, and to add that exterisicfi to any filenaae I wanted 
to load, so I dm t have to add that when i want to load 
soaething. You can do that kind of stuff your own way. All the 
other additions where just as discribed m Toas aanuai, 
fuli-sise printer addition, auto search laproveiBents, etc. I do 
have a saall "start" prograa on the disk to auto-load the 
"profile", but you can just renaise the "profile" loader pr^raa 
to "start". 

tti to other things. First off, I have recmtly gone through 
all the letters 1 have received frcM you, (I keep a cos^lete 
archive, no "file 13") and find that there are aany questions I 
have not ans*«red, or perhaps answered in a soaewhat 
disorganized aanner. And in fact, I kind of got confused as I 
7 read through as to i^at I had and had not related to in the 



or writing aachine code needing access to the internal code. It 
should be possible to get all parts except for the pc boards and 
cases. The TCE is in Eprx)® so this can be corrected and 
expanded, (be aore thing. I need a FDD Controller (silver box or 
imd). I have enough other parts to build a systea. The 
controller would not have to be operating if it is r^airable. 
Can I get the back issues of T.O.P.S, - 1 guess they are all 
back issues. Thank you for the FDD Express. Sincerely, Bob 
Orrfelt, 3436 Bay Road, Redwood City, CA 94663 

Bob, as far as I know, there are just very slight 
differences between the silver boxes and the l/dm system. I say 
slight, because in doing soae work with Kike Finn's Track Reader 
prograa's, I found a slight differ^ce. Itothing to get eaotional 
about. I will be explaining aore in a future issue. There was 
only wie issue of T.O.P.S., and I don't have (wre than just ay 
one cc^y, which has notes all over it. Haybe soaeboly else ait 
there has a copy they can send yoi. Ron 

Jack Dohany wrote ae a nice, inforaative letter a (long) 
>^ile ago. 

Hi Ron, 

Thanks very auch for sending tee your newsletter. I like it, 
and want to r&^in on your list, even though I don't am a Zebra 
systea right now... To provide fullest possible support, I need 
to have ^ disc systeas at ay elbcw. The only wie I now lack is 
Zebra, so I 'a Icwking for a very 'inexpensive Zebra systea, 
working or not, old-type or (preferably) FDD 3666. ..In order to 
stay alive this year, I need to expand ay nailing list, ^d get 
ay software knc»m to as aany pec^le as possible. So please ask 
your subscribers to send ne their address so I can smd thea a 
catalog. Preferably they should enclose $1 + SASE to help out... 
Soaething you or other Zebra users aay be able to help iTte with: 
I have never seen an FDD 3666 or had access to one. I need to 
know how it differs froH the original "aany-iittie-bos" Zebra 
systas. If soaeone caild undertake to sake m a copy of the FDD 
3666 docuaer.tation and aaii It to ae. I d be happy.. .But a 
short, coaplete and correct syaopsis of differ-ences between old 
and new aight be just as useful, since I already have 
documentation for old systeas. . .Does anyone out there have a TOS 
source listing?.. An expert prograaaer, with access to this 
listing, would be able to answer just abou any question or solve 
just about any problea. For exaaple: how to get tecript to talk 
to a serial printer over Zebra RS232?..Jack Dohany, 396 . 
Ruther-ford Ave., Redwood City, CA 94661 



newsletter. Also, I have been inforoed by saae people that my 
explainations of different iteos left a lot to be desired, 
sosetites aore confusing than helpful. So I want to ask you to 
do ae a favor, ftiyone who had a topic they wanted answered, or 
that wasn't answered coapietely and understandably, please 
rewrite «e with the request, and I will try to get it in as soon 
as possible. Please forgive ae for the unprofessional aanner in 
which I have handled the newsletter, but I said at the beginning 
I had never done anything like this before. 

Just to let you know sosething I am vwrking on: I have 
developed the idea of aaking an "archive'- progra*, and in fact I 
have started with it, i«Biat u (hopefully) Nil! be, is a prograa 
that reads the dii-ectory track of a disk, (Thanks to Mike Finn's 
TRACK READER progra»i> and then is able to load up ail the 
prTfgrass, code, arrays, m disk and place thesi on a cassette 
"{aperinere coup 1 e of "ways th i5 can be accoap lished . " Onr, " 
by using Mike's prograa to read each track of a disk, encoding 
it, and plating it directly to tape. This would be faster, but a 
aajor drawback would be that the prograas on the tape would not 
be able to be used from tape. I chc»se to get each file ixie at a 
tise, and place the* on tape so that they can be used frt^ tape 
if necessary. laagine having your drives go do»ffi, and not being 
able to access an iaportant prograa. 

Yes, you could load and save to tape each prograa, code, 
etc. (Usually, but how often d(KS anyone do that? I have had ay 
drives for, golly has it been alsost three years already? M I 
have l€VEF^: saved any of the files to tape, even though aost of 
the prografxs have been created since I had the drives. So if ay 
drives go down, 1 ats up the creek without a paddle. And I aa tew 
lazy to sit here for the hours it would take to individually 
load and save each and every prograa. So if I can write a 
prograa to autoaatically do that, even if it can mly do one 
disk at a tiae, then so auch the better. 

Now, soise probieffls with it. ftie, I aa writing it m Basic, 
since ay knowledge of assesfily leaves a lot to be desired. CSi, I 
can read Assestly alright, but writing 'is a different aatter. So 
with this in Basic, that aeans that I aa using variables, i4iich 
nay conflict with variables in the prograas I aa trying to save. 
5o soae rules I will have to follow are: Use varieties that I 
f€7H?(!) use in progrants. And surprisingly, there are quite a 
few, even with the string variables. Ever notice how we tend to 
use just certain variables in all our prograas? For exa^ie, I 
alaost always start with A$, then B$, then C$, etc. Then I skip 
to Z$, Y$, and soaetiaes X$. I tCVER use U$, V$, and «$. See if 
you dffli't tend to follow soaething like that as well. 

Since the prograa is written in Basic, that aeans that a 
OK * will aerge the pr^raa on disk with this one. So I have 

to »ake sure that all the line nuabers are such that they don't 
interfere with the aerging programs, and are not intertwined 
nth thea. Also, since the entire prograa, along with this 
peciai prograis, will be saved to tape, it is iaportant to aake 
^fure that this routine is not executed when the aerged prograa 
IS run. 

Another sajor consideration is the aaount of aeaory the 
i-ograa and variable take tip. Though I aa trying to aake it as 
mall as possible, still it will take up soae rooa. So a program 
on disk that takes full aeaory will not be able to be aer9ed.| 
Profile is one of those that waild not be able to be backed up 
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m this aanner. 

Oiviously, aachine language is the anater to nost of this. 
I*ien I get it finished, I will publish it and let those ass«^ily 
prograBsers of you out there translate it to aachine code. Then, 
you aay be able to locate it in soae innocuous space in aeaory 
so everything can be loaded in and saved. 

Also, I haven't figured out how to load and save to tape 
those sequential and randoa access files. They could be auch 
larger than aefflory (which is t^y they are so valuable) and the 
routine to convert thea to code would take up rooa 1 don t want 
to use. i aa going on the assu^tion that those kind of files 
would need continual update anyway, and so a backup would be too 
old to bother with, 

As you have "probabty "noticed," 1 aa~Ti5Tng""FaBB0rd^ again ~to- 

write this, even though you know I have Mscript. Hell, the truth 
is, 1 have tried it a few tioes, used it for the last 
newsletter, but don't care for it all that well. Hy preferences 
are Tasword first, itordstar (CP/M) a close secwid, and fiscript a 
distant third. Just no accounting for taste I suppose. I just 
prefer the "^r.at you see is what you get" type of display, which 
both Tasword and Wordstar offer. Yes, 1 can set the screen of 
Mscript to the width I aa printing, but 1 prefer on screen 
foraatting, vrfiich Hscript can't do. Also, I don't like all that 
extra on screen juable interfering with ay reading. I will 
continue to use it and get used to it, but that doesn't aean I 
have to like it. I have to learn it inside out though, so I can 
try to figure out hew to send the cwtput through the serial port 
of the drives. 

Now let m tell you the greatest (?) news, i have finished 
that Accounting software i was writing for ay boss, and have 
been paid. So 1 have ordef^ an XT clone. Haven't received it 
yet, only or-dered it two days ago. But now 1 will be able to be 
coapatibie with more business people in ay area. A client of 
aine has an Aastrad, based on ay recoaanendaticBi, but I have been 
unable to get soae of his software installed, since he has the 
coaputer in his hoffie, and his schedule and aine conflict so isjch 
that 1 can't get there. So the answer is for m to have a 
coapatibie aachine here, install the software prtiperly on disk, 
and then give the disks to hia. 

So now the first thing that coaes to your amd is, "Oh, no, 
is Ren going to abandon us too"'". NEVER!!!! 1 feel too auch 
loyalty to ay fellow Zeora users, and m fact, will need to kes: 
using ay Tii^s syst&ti for sum tise to cc»e. (3ne of the fir^t 
triings I have to do is to try to transfer the PC teiecofft prograa 
PROCOMM froa ay CP/H disk to the XT. 1 downloaded it to ay 
systea so that 1 can hopefully do a direct transfer serial port 
to serial port, and thus get it to the clone, withcwt having tc 
buy a telecoa prograa for it. (I 'a incredibly cheap) If I 
accQ(^iish this, you will be the first to know how. i4hy? Sote o-^^ 
ycxi do not have aodeas for your but would like more CP/^ 
prcgraas. Everyone knows soaebody who has a PC type coaputer. 
Let hia download a prograa for you, and transfer it to yair 
aachine. 

No, I did not get an Aastrad. 1 was (and still aa) quite 
enthused about it, especially the liM, but at the last ainute 
decided I would need aore expandability that it would allw. 
Just hope I haven't aade a aistake. Ron 
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TS-2068 with ** UNLIMITED RM capability 



The plug in cards to the left are expansion banks. The tall card 
behind the 2068 is the controller card. Interconnect is via 2 40 wire 
ribbon cables. 



*** EXTRA MEMORY 
(editor's note) 



I wrote to Mr. Charles G. Bothner because I had heard of his work 
in the TS-2068 Extra Memory area. His response flabbergasted me. This 
is the most complete engineering analysis of 2068 Extra Memory that has 
been produced to date. It goes far beyond the expertise of the Timex 
engineers and corrects their mistakes. While interesting to read, most 
will be swamped by the technical detail. The real reason for publishing 
Mr. Bothner 's extensive thesis is to provide the information to our own 
hardware developers who are still producing products for the 2068. It 
can save 2 years of duplicate work and cut the time needed to bring us 
products to use. Mr. Bothner, we appreciate your gigantic contribution 
and we applaud your expertise! You are really dedicated to our slogan, 
"take it to the limit!" 



19 
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MAY 10, 19Be 

Bill Jones 

TS-206S UP-DATE 

1317 Stratford Avenue 

Panama City, FL 32404 

Dear Bill, 

You are right about me having operating hardware for TS-2068 
expansion bank operation. I have spent the major portion of 
the past two years in debugging the TimeM ROM software and 
constructing some hardware for expansion banks. 

Let me fill you in on my present status of development. At 
the present time, I have completed debugging of the home 
PROM and verified operation of all modified routines with 
diagnostic software. The routines include the FORMAT, MOVE, 
CAT, and ERASE functions as well as the LOAD *, SAVE *, 

VERIFY »r - and MERGE * -f onct^i-orrs^; — One- Tif--the^-Ti:mB?r--ri5Utiries 

required for communication with the expansion banks is the 
PASSING routine which is located in the EXROM. The original 
Timex implementation of this routine (which saves parameters 
on the machine stack) required that memory chunk 0 be 
enabled in the EXROM bank simultaneously with chunk 1 being 
enabled in the HOME bank. Apparently the SCLD chip does not 
allow this to occur since I could never get this routine to 
work properly in the EXROM. After moving the PASSING routine 
into the HOME PROM, it worked perfectly. 

I realize that this letter is somewhat rambling, but I 
wanted to give you some idea of the types of problems that I 
encountered during the development program. You may be 
wondering by now where I found room to cram any more func- 
tions into the HOME PROM. There was a great deal of redun- 
dant code in the original ROM, and several small routines 
which were never used. Also, I deleted the original PRINT 
and COPY routine area which dealt with the 2040 printer 
only. Another significant change to the the HOME PROM was 
the modification of the calls to the routines located in 
home RAM. Originally they only communicated with the RAM 
routines when they were in chunk 3. I included routines to 
determine whether the RAM routines are currently in chunk 3 
or chunk 7. The calls to these routines were originally used 
by only the DOCK bank communication routines, but now they 
are also used by the expansion bank communication routines. 

The present hardware status allows communications to up to 
15 expansion banks via a controller interface card attached 
to the bus connector. Each expansion bank is on a separate 
plug-in card on a- separate chassis assembly. I only have a 
total of 5 expansion banks on-line at the present time be- 
cause I have not had time to wire up any more cards. 

During the course of the development , I found it necessa rv 
to do major re-writes of about half of the O.S. RAM 
routines. I completely scrapped the original routines which 
did the actual setup communications with the expansion banks 
<B.S. READ and B.S. WRITE). The use of ports FC and FD as 
originally mentioned in the Timex Technical Manual seemed to 
make more sense so I went that route in the new hardware. 

At the present time, I do not have the expansion bank in- 
itialization routines in the EXROM completely debugged. When 
I boot up the system, I load the SYSCON table and the MAXBNK 
values via a separate program which is loaded from tape. 

You asked about some data on extra memory. Probably the 
simplest add-on is the full expansion of the EXROM bank. It 
is necessary to add a small circuit card containing two 
I.e. 's to the internal circuit of the computer to provide 
full address decoding to the EXROM PROM to allow chunks 1 
through 7 in that bank to be used for either RAM or addi- 
tional PROM routines. As you can see on the schematic, only _ 
one of the chips is used for the EXROM decoding. The other C.U 



chip allows de-selection or disabling of both the EXROM and 
DOCK banks when the line marked BUSISO is in a low state. 
This line is an unused function on the original computer, 
but it is the key element in the functioning of the bank ex- 
pansion hardware. 

Let me explain the bank expansion hardware operation a 
little further at this point. As you are aware, the activa- 
tion of chunks of memory in either the EXROM or DOCK banks 
is accomplished by setting corresponding bits high in port 
F4. The identity of the bank using these chunks is estab- 
lished by the state of bit 7 of port FF (0=DOCK, 1=»EXR0M) . 
The use of the BE signal by expansion banks would cause 
disabling of ALL HOME, DOCK, and EXROM memory so the expan- 
sion bank would not have direct access to the system vari- 
ables or the RAM which is accessed by the SCLD for display 
refresh. In my implementation of the bank switching 
hardware, the bits of port F4 are still used to determine 
bank usage. A 0 in any bit position still signifies that the 
HOME bank has control of that chunk and a 1 signifies that 
either an expansion bank or EXROM/DOCH; banks (depending on 
the state of bit 7 of port FF) have control of_ that chunk, 
ff^ — ari— -exp^anslTsrr^baTT^^RasnBeeh"^ Tt wi 1 1 

pull the BUSISO line low whenever addresses in that chunk 
are active, thereby disabling both the EXROM and the DOCK 
banks at that time. (The GET STATUS routine in RAM has been 
modified to properly identify which chunks are assigned to 
which banks by subtracting all expansion bank chunks from 
the port F4 mask and identifying all remaining non-HOME 
chunks as either DOCK or EXROM) 

I am including the schematic for a full expansion of the EX- 
ROM bank via a circuit card which plugs in to the expansion 
bus connector. Note that the BUSISO line as well as the BE 
line can disable this memory when required. 

I sent an article on port expansion hardware to TDM over a 
year ago, but I guess that they were not interested so I am 
including a copy in case you might want to do something with 
it. Since that article was written, I have added a number of 
other ports to the system including the Larry Kenney disk 
system, a 16 bit parallel I/O port, a Digitalker port, and a 
20 milliamp loop interface port. The photograph shows that 
the outrigger hardware swamps the original computer in sheer 
volume. 

I really don't know where to start in writing any articles 
on my memory expansion proect. Over 1000 bytes have been re- 
written in the HOME PROM alone and you can see from the ex- 
pansion bank schematics that they will take a great deal of 
explaining to make the overall operation clear to your 
readers. If you are interested, I can send you copies of the 
modified PROM's so you can try out , any of the hardware you 
may care to build. I am not personally interested in market- 
ing anything but will freely make information available if 
we can figure out a rational way to present it. 

Please feel free to give me any advice or comments relative 
to generating articles. I am a hardware engineer, not a 
writer. 



si ncerel y , 



Charles G. (Chuck) Bothner 

f^.S. In regard to extra memory, there are over 1000 bytes of 
RAM going to waste on the normal 2068 computers. Most people 
are familiar with the 256 bytes available in the 2040 prin- 
ter buffer area starting at address 23296 (SBOOH) , but I 
have never seen any mention of the 542 bytes available in 
the System Variables area starting at 23756 <5CCCH) or the 
265 bytes available in the Syscon Table area starting at 
24311 (5EF7H) . My system boots up with a modified version of 
the AERCO printer handler and a COPY routine for an Olivetti 
model PR2300 printer being loaded into the spare RAM in the 
System Variables area. (The expansion banks are rapidly 
filling up the Syscon Table area.) 
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2068 PORT EXPANSION 

Page 215 of the Timex/Sinclalr 2068 User Manual contains 
a statement that up to 2 peripherals can be simultaneously 
connected to the expansion connector. If you are like me, 
you have acquired a number of different peripherals over 
the last few years, such as a full size printer interface, 
real time clock, telephone modem, graphics interface, RS- 
232 interfaces, etc. It becomes somewhat of a nuisance to 
keep reconfiguring the units connected to the rear expansion 
port, as well as producing unnecessary wear and tear on the 
connectors. 

There are two primary reasons for the 2 expansion unit lim- 
itation. The first one is the 2068 power supply limitation 
of 1 ampere maximum on the +5 volt power bus. The second 
reason is the lack of buffering on most 9f the output sig- 
nals on the expansion bus. 

With this in- mind, I de signed -and -bitilt-a- port-expansion 

buffer unit. The schematic for this unit is shown on Figure 
1. The power limitation was corrected by providing an ex- 
ternal power supply which provides +5 volts §5 amps., and 
a + & -15 volt supply @500 milliamperes . This powers all 
port add-ons beyond the buffer card. 

An examination of Table 2.4.1-2 in the 2068 Technical Manual 
will show the acceptable loading that can be applied to each 
of the output signals on the expansion connector. This table 
however, like the system ROM's, contains a number of errors. 
The following table contains some corrections which can be 
readily verified through an analysis of the 2068 schematic: 

FUNCTION TIMEX MAX. LOAD(I) REALISTIC LOAD (I) 

— AISB — 1.8 mA. 12 mA. 

AiliB 1-8 mA- 12 mA. 

A13B 1.8 mA. 12 mA. 

A7RB 0.35 mA. 6 mA. 

EXROM 12 mA. 1.8 mA. 

ROSCS 12 mA. 1.8 mA. 

These corrections were noted during the design of the port 
expansion card and are listed here only for general infor- 
mation. The functions required for standard port I/O oper- 
ations are TORQ, RD, WR, data bits Djel through D7, and the 
lower 8 bits of the_address bus, AJ3 through A7. The control 
bits I0R5, RD, and WR are among those that are already buff- 
ered inside the computer by U15, a 74LS245. The data bits 
and lower address bits are not buffered and have a limited 
drive current capability. Since the address lines are always 
driven by the ZBO chip (unless presently unavailable bank 
switching hardware is in use), a simple unidirectional buff- 
er chip can be iised fo r th ese signals a s_s ho wn on Pigurje 1. 
U2orrt he" buffer card is a 74LS244 which has an output 
current drive capability of more than 20 milliamperes, 
so this will support at least 50 expansion ports if only 
one standard LS chip load is present on each line at each 
port. 

The buffering of the data lines presents more of a problem 
since these lines are bidirectional. The buffering of the 
data lines is accomplished by using a 74LS2i<5 chip (Ul) 
which also has an output drive capability of more than 20 
milliamperes. The data flow direction is controlled by the 
logic provided by UM. The 7^LS2M5 chip is always operating 
in the data out mode unless a read on the port bus is req- 
uested, this could cause complications when the Z80 chip 
requests a read of the ports controlled through the SOLD 
chip, the sound chip, or the T/S 2040 printer. To prevent 
loading of the internal data bus by Ul when a read of the 
SOLD ports is requested, U5 is used to tri-state, or float, 
the 74LS245 when any of the port addresses F0E through FFH 



are In use. All of the presently known 2068 internal funct- 
ions are contained within this block of addresses. This 
leaves a total of 240 I/O addresses available for periph- 
eral units. These ports are in the range from 0J3H through 
EPH. 

Some additional lines were buffered on this card to isolate 
the external p orts f rom the internal 2068 hardware, the 
clock. Ml, and RESET signals are buffered by a 74LS367 (U3) 
chip. This chip was used instead of another 74LS24i| to save 
some real estate on the card to allow for the addition of 
a real time clock/calendar port on the same c ard ( Figure 2). 
A lOuF capacitor was added to the unbuffered RESET line to 
compensate for the lowered pull up resistance presented by 
the 74LS367 chip (the 2068 internal pull up resistor is 220K 
ohms) . 

The port buffer was constructed on a Zebra Systems experimen- 
ters card using their expansion connector units. All of the 
functions not shown on the schematic of Figure 1 were conn- 
ected straight through from the female connector to the male 

connec tor card. The pins fr om t he female jconnector were no t 

"connected "to the output male connector for alX of "TReT'unct- 
lons shown on Figure 1. See Figure 3 for connector mechanical 
details. Independent Input and output connections were pro- 
vided as shown on the schematic. The +5 volt and +15 volt 
pins on the female connector were cut off at the connector 
to Isolate the computer power from the I/O ports. 
A -15 volt' supply was' added to allow use of operational 
amplifiers and other analog type chips on A/D and D/A 
ports. The -15 volts was tied to pin 5 on the bottom 
of the connectors. This is a previously unused pin on 
the expansion bus. Not shown on the schematic of the 
port buffer card are the usual 0.01 to 0.1 uF capacit- 
ors on the +5 volt supply pin for each chip on the board. 
The external power supply was connected to the buffer card 
through a 5 pin Molex connector, but these lines could 
be hard-wired, if desired. 

As noted before, if you are using a T/S 2040 printer, it 
will be necessary to connect it between the computer and 
the buffer card since it uses port FBH for its communicat- 
ions. 

At the present time I have a total of 8 I/O cards stacked 
behind the 2068 computer (see photos). They contain the 
following functions: 

Card #1- I/O Port buffer and real time clock/calendar 

- Card #2- RGB Monitor interface and phoneme entry speech 
synthesizer 

Card #3- Text-to-speech synthesizer with exception word 
EPROM added. 

16 Channel A/D Interface and paper tape 
reader interface. 

Zebra Systems graphics interface 

RS-232/ 20mA current loop interface (Zebra 
Systems modified 2050 Modem card) 



Card #4- 

Card #5- 
Card #6- 



Card #7- T/S 2050 MODEM unit 

Card #8- AERCO printer interface 

Cards 5 through 8 are commercial units while the first 4 are 
home brew assemblies. A total of 47 port addresses within the 
am to EPH range are presently in use with more peripherals 
yet to come. 

This stacking of I/O cards produces a lot of connectorization 
but I have never had any problems with system crashes or other 
problems due to connector wobble as reported for the T/S 1000 
computers . 



Zebra Systems prototyping board 



Zebra Systems 
input connector- 



L 



cut the ,+5 and +15' 
volt leads here 



Zebra Systems 
output connector • 



remove this portion 
■ for buffered signals 



■'solder these 
connections for all 
non-buffered functions 



FIGURE 3 



CODE IN LINE 1 REM. OF CLOCK SET PROGRAM 



ADDR. 




DATA 


OPCODE 


FUNCTION 


685B 


ENTRY 


E5 


PUSH HL 


Save registers 


685C 




D5 


PUSH DE 




685D 




C5 


PUSH BC 




6B5E 




3E0F 


LD A, OF 


PIO set for output 


6860 




D3D9 


OUT <D9) ,A 


PIO A port 


6862 




D3DB 


OUT (DB) ,A 


PIO B port 


6864 




3E40 


LD A, 40 


-Clock HOLD command 


6866 




D3D8 


OUT <DS),A 


Start HOLD on clock 


6868 




0E22 


LD C, 34 


150 uSec. delay for 


686A 


DELAY 


CD 


DEC C 


HOLD setup 


686B 




20FD 


JRNZ, DELAY 




686D 




21F05F 


LD HL, 5FF0 


Addr. for setup data 


6870 




16D8 


LD D, D8 


PIO A port data addr. 


6872 




I EDA 


LD E, DA 


PIO B port data addr. 


6874 




06 DO 


LD B, DO 


Starting clock chip addr. 


6876 




78 


LD A, B 


Clock addr. into A 


6877 


LOOP 


D610 


SUB A, 10 


Decrement by 16 


6879 




47 


LD B, A 


Restore addr. to B 


687A 




7E 


LD A, <HL) 


Set ASCII data 


687B 




C610 


ADD A, 10 


Convert to BCD + HOLD 


6870 




4B 


LD C, E ' " 


Get PIO B port data addr. 


6e7E 




ED4 1 


OUT <C) , B 


Addr. to clock chip 


6830 




•4A 


LD C, D 


Get PIO A port data addr. 


6881 




ED79 


OUT (C) , A 


Output BCD char. + HOLD 


6883 




C6 1 0 


ADD A, 10 


Add write bit 


6885 




ED79 


OUT (C) , A 


Char. + WRITE + HOLD 


6837 




D610 


SUB A, 10 


Turn off write bit 


6889 




ED79 


OUT (C) , A 


Output BCD char. + HOLD 


6886 






INC HL 


Next char. addr. 


6080 




78 


LD A, B 


Get clock chip addr. 


68SD 




A 7 


AND A 


Set flags 


'h&BE 




20E7 


JRNZ, LOOP 


Continue until done 


6890 




ED79 


OUT <C) , A 


Release HOLD on clock 


6892 




CI 


POP BC 


Restore registers 


6893 




Dl 


POP DE 




6894 




El 


POP HL 




6895 




C9 


RET 


Done UPDATE July 
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CODE IN LINE 1 REM. OF CLOCK READ PROGRAM 
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ADDR 




DATA 


OPCODE 


FUNCTION ^^^^ nennry 


6S5B 


ENTRY 


E5 


PUSH HL 


Save registers 


685C 




D5 


PUSH DE 




685D 




C5 


PUSH BC 




685E 




3E0F 


LD A, OF 


PIO port B output only 


6860 




D3DB 


OUT (DB) , A 


Set i t up 


6862 




0ED9 


LD C, D9 


PIO port A command reg. 


6864 




21AA6S 


LD HL, PIO 


Configuration table addr. 


6867 




0604 


LD B, 04 


4 byte transfer 


6869 




EDB3 


OTIR 


Set up port A 


686B 




3E40 


LD A, 40 


HOLD bit for clock chip 


686D 




D3D8 


OUT <DS) , A 


Send it 


686F 




0E22 


LD C, 22 


150 uSec. delay routine 


6871 


DELAY 


OD 


DEC C 


for HOLD setup 


6872 




20FD 


JRNZ, DELAY 




6874 




C620 


ADD A, 20 


Add READ bit 


6876 




D3DS 


OUT (D8) , A 


Send READ + HOLD 


6878 




lEDA 


LD E, DA 


PIO por;t B data addr. 


687A 




16D8 


LD D, DB 


PIG port A data addr. 


687C 




2 1 EF5E 


LD HL, 5FEF 


First data store addr.-l 


687F 




06C0 


LD B, CO 


First clock chip addr. 


6881 


LOOP 


CDAE68 


CALL STORE 


Store data 


6884 




F5 


PUSH AF 


Store character 


6885 




78 


LD A, B 


Get current clock addr. 


6886 




D6 1 0 


SUB A, 10 


Decrement it 


6888 




47 


LD B, A 


Put back into B 


6889 




FE70 


CP A, 70 


Is it I's day addr.? 


688B 




280B 


JRZ, MASK 


Jump if so 


688D 




FE40 


CP A, 40 


Is it I's hours addr*? 


688F 




2807 


JRZ, MASK 


Jump i f so 


6891 




FEFO 


CP A, FO 


Is it done yet ? 


6893 




2808 


JRZ, END 


If so , wrap i t up 


6895 




Fl 


POP AF 


Get ASCII data back 


6896 




18E9 


JR, LOOP 


Continue until done 


6898 


MASK- 


Fl 


POP AF 


Get ASCII data back 


6899 




E6F3 


AND A, F3 


Mask off AM/PM,24 hr,29 day 


689B 




1SE4 


JR, LOOP 


Continue until done 


689D 


END 


Fl 


POP AF 


Get ASCII data back 


689E 




0600 


LD B, 00 


Units seconds address 


68A0 




CDAE68 


CALL STORE 


Store last data char. 


68A3 




AF 


XOR A 


Clear A 


68A4 




D3D8 


OUT (D8) , A 


Clear READ ?< HOLD 


68A6 




CI 


POP BC 


Restore registers 


68A7 




Dl 


POP DE 




68A8 




El 


POP HL 




68A9 




C9 


RET 


Done 


68AA 


PIO 


CF 




Select mode 3 on PIO chip 


6aAB 




OF 




Select I/O bits 


68AC 




37 




Interrupt control byte 


68AD 




FO 





M^sk byte 


68AE 


STORE 


77 


LD (HL), A 


Store ASCII character 


68AF 




23 


INC HL 


Next addr. 


68B0 




4B 


LD C, E 


Get PIO port B data addr. 


68B1 




ED41 


OUT (C) , B 


Clock chip addr. in B 


68B3 




4A 


LD C, D 


Get PIO port A data addr. 


68B4 




000000 


NOP ' s 


Wait for clock addr. delay 


6887 




ED78 


IN A, <C) 


Get clock chip data 


68B9 




E60F 


AND A, OF 


Mask off bits 4-7 


68BB 




C630 


ADD A, 30 


Convert to ASCII 


68BD 




G9 


RET 


Back to main routine 



2,9 




15 

3^ 



Cv-f oi-ijUc,! iirc\ct.s iip : 
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This utility will be found useful In the Inspection, 
analysis, and correction of errors on disks used on 
the LARKEN DD system. This utility Is designed for use 
with the Larken 350K per disk I/F board. 

Entering the listing Is straight-forward, however 
there are a couple of things which will not be evident 
from the listing. 

Firstly, there are a number of burled color codes in 
the program which contribute to it's ease of use. 

A burled color code is entered into a listing by 
going into the "extended" mode, then pressing one of 

the keys 0 to 7 (the color keys). This has the effect 

-of~-4fnmediatel y chan^ Itig- the 1 f st 1 ng~ coltjr . ~Th1 s- ef feet 

also appears in program operation, which Is why we are 
doing it. This new PAPER color will continue through 
the listing and the program, so it Is necessary to 
make a change back to the normal PAPER color 
immediately after the effect is no longer wanted. Do 
this by entering a new color using the same routine. 
Usually this will be the "extended mode" key 7, to 
give a PAPER WHITE effect. If this command has been 
inadvertently entered incorrectly it can be deleted 
using the DELETE key In the normal manner except that 
you win find that two operations of the DELETE key 
are required. 

Lines which require this color switch are as follows: 
LIflE 1060 yellow: 

" 2510 red!"' "REflQVE PROTECT TABS" 

" red: "while using Rename' 
" 2520 yellow: "ready?" 

" 4060 green: "initial letter of each command" 
" 4140 yellow: "*" 

" 4320 yellow: Initial letter of each command 
" 4350 yellow: letters 0 and A 
" 4640 yellow: Initial letters of "Same" & "New" 
" 7601 Red: "Remove WRITE PROTECT sticker" 
You may also choose to highlight the REM statements. 
(Don't forget to insert the"extended" mode 7 after 
each of these entries) 

Save the program by GO TO 110. Or to make It an 
AUTOSTART program by changing the line to read: 
110 RANDOMIZE USR 102 

The program makes use of the LARKEN "Hcode.Cl" disk 
DOS routine, so it must be on the same program disk. 

The program has been written to allow compilation by 
TIHEMACHINE. Lines 120 and 2535 would need to be 
removed however, due to the Inability of TIHEMACHINE 
to handle uniquely LARKEN commands. 

OPERATION: 

Upon running the program you will be presented with 
a menu offering 8 choices. 

Option 1. will give a screen display of the USED/ 
IDLE status of all the tracks on the disk under 
scrutiny. As written It will handle DSDD disks 
correctly. -r ^ 



Option 2. is a Program Header Reader, which gives a 
track by track report of programs on the disk. 

Option 3. provides track information about each 
program on the disk taken from the directory track. 

Option 4 provides the capability of examining and 
modifying the data on a track. Most useful when used 
on track 0; the directory track. 

Option 5. Offers a program rename capability. 

Option 6. A Disk Formatting routine. 

Option 7. To select a particular drive. 

Option 8. To quit this program. Calls up a Menu. 61 
program. Can be modified to suit needs. 

The use of option 4 requires more explanation. It's 
biggest os« w^ 11" be-w-track^^ a^ meot+oned-earH^r — 
When Option 4 is called up you will be asked for a 
track number. Most often wanted will be track 0, the 
track whicH holds the disk directory. Enter a 0. The 
program then proceeds to load the contents of that 
track into a buffer area in the computer starting at 
address 45000. It is at this point that we can access 
the buffer, inspect it, make changes to it, and resave 
it, with or without changes as desired. 

First we will briefly cover the makeup of track 0. 
The first 168 bytes of this track are concerned with 
disk status. After that comes a series of "cells" 
containing a record of one of the programs that has 
been saved on the disk. Each cell contains the program 
name and the track numbers that the program occupies, 
plus 3 or 4 markers used by the DOS to mark the 
program location. Each cell occupies 34 bytes. There 
is room for as many as 100 such cells on this track 
(though rarely are that many used). Towards the end of 
the track is the disk name. 

This is the briefest of outlines of the track 
makeup; sufficient only to permit an explaination of 
the use of the cormiands shown in option 4. 

When Option 4 has been selected and track 0 chosen 
you win be presented with a display of the contents 
of that track starting with byte 0. This is not 
particularly interesting at the moment so press the C 
(continue) key. This will advance you to the first 
program name cell. The screen shows the first 17 bytes 
of this cell. Pressing C again will display the next 
17 bytes of the cell. Pressing C key a third time will 
bring the first half of the second cell onto the 
screen. 

To move back by one screen press the B (back) key. 
Or, if you wish to move onto the start of the next 
cell then press the E (etc) key. This will move you 
forward by a complete name cell, rather than a half a 
cell. If you wish to move forward even more quickly 
then press the J (jump) key and you will advance by 5 
cells. 

If you press the 0 (dire) key you will jump forward 
approximately 3600 bytes to where the Disk name is 
stored. Or by pressing the T (top) key you will return 



to the very start of the buffer where you first 
entered. These conmancls then, control your movement 
through the buffer. 

Now to cover those conmands which allow you to 
modify the buffer. 

Press the A (alter) key, and you will be presented 
with the option "Name or Track", Choose M If you wish 
to change a program name, or T If track numbers are to 
be modified, A cursor will appear on screen, and you 
can position It on the screen by using keys 0, A, and 
ENTER, This will determine where the new entry is to 
start. Then enter the desired changes. Terminate the 
entry and you will see the changes you have made 
reappear on the screen. 

When you have made the desired changes you may then 
choose to save them to disk by pressing the S (save) 



key. You will be asked whether you wish to save the 
buffer to the same track (usually) or to a new track. 
The L (load) key permits you to load another track 
Into the buffer, while the M (menu) key will bring 
back the main menu. 

This has necessarily been a very abbreviated 
description of the operation of this program, and it 
may be adequate for some. If wish a more complete set 
of Instructions you may obtain these by sending $3 to 
my address shown at the top of this listing. 
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1130 PRINT AT VAL "21 ",oo; "Tracks Open: "; 
ot 

1150 PRINT #0;"z to copy-Any other key for 

menu" 
1170 PAUSE oo 

1180 POKE VAL "23658", oo: LET i$=INKEY$ 

1190 IF i$="z" THEN COPY 

1200 GO TO VAL "5000" 

2000 REM Program Header Reader 

2010 LET m=oo 

2020 CLS : PRINT '" This option displays t 
he file information saved on each block 

along with the data." 
2030 PRINT ""TRACK - The track number on 

disk" 

2040 PRINT ""NAME - The file name is save 
d on each block for reference only" 
2050 PRINT ""START - The start address of 

the file. Useful when saving code." 
2060 PRINT : PRINT '"LENGTH - The total le 
ngth of the file." 

2080 PRINT #0: "Press any key when ready": 
PAUSE oo 

2090 CLS ! PRINT " DISK DATA-HEADER RE 



NAME 



START 



LEN6T 



1 REM George Chambers, c„«r,hr,r.r,. . 

14 Richome Court M1K 2Y1 

gh, Ontario CANADA M1K eYi 

V^l ^SnSSmIZ^ ulf'vAL "100": SAVE "doctcr 

'?PC?1 CLEAR VAL "39999"! RANDOMIZE USR VAL 
"100"? LOAD "Hcod;:Cl"CODE VAL "40000" 
160 DIM a$(640) ^ , ^_ , , , 

170 LET oo=0: LET oa=1 : LET ab=2: LET oc- 

^180 LET drive=VAL "43301": LET dr=oo 

190 LET settrack=VAL "40003" 

200 LET nexttrack=VAL^"40006" 

210 LET sprt=VAL "40009 

220 LET load=VAL 40012 

230 LET save=VAL "40015",, 

240 LET track=VAL "43300" 

■ iig hi} gC^^:r=?kL"^?i§00"= let buff lenth 
=VAIL "5120"! LET lastcell=VAL "4500": LET 

diskname=4483 

270 POKE drive. Ob 

280 LET treg=vAL "18" 

290 LET side=ob 

300 GO TO VAL "5000" 
1000 REM Track Used/Free Routine ..^crtoi 
1005 CLS : LET number=oo: 60 SUB VAL "7500 
tt 

1010 LET c=oo! LET ot=c: LET ft=c 

1041 FOR n=buffer+VAL "25" TO buffer+VAL " 

103" 

]Ts0 lPt=VAp"245" THEN,, LET n$=">Used"! 
LET ft=ft+oa: 60 TO VAL "10S0" . „ ^ „ 
1070 IF to VAL "245" THEN LET n$="-Open": 

1080 PRINT^TAB (c) ; (n- [buf f er+VAL "24"));T 

AB (c+ob);n$; 

1090 LET c=c+VAL "8" 

1100 IF c=VAL "32" THEN LET c=NOT c 

1120 print" AT VAL "20" , oo ; "Tracks Used: "; 3 2 

ft: 



2100 PRINT. "TRACK 
H" 

2110 PRINT " 

2120 PRINT AT VAL "21", VAL "7";"(M returns 

to menu)": PRINT AT oc.oo 
2130 POKE track, oa: RANDOMIZE USR settrack 

2140 PRINT "0 Disk Directory Track" 
2150 FOR t=oa TO VAL "79": 

2160 IF PEEK VAL "23689"<VAL "7" THEN GO 
SUB VAL "2340" 

2170 IF IN 16=oo THEN RANDOMIZE USR settr 

ack 

2180 RANDOMIZE USR load 

2190 PRINT PEEK ( buff er+oa ); TAB VAL "5": 
2200 IF PEEK ( buff er+oa ) Ooo THEN : IF PEE 
K (buff er+oa) Ot THEN PRINT : PRINT "Tra 
ck Number Error on Track ":t 
2210 IF PEEK (buff er+oa )=oo THEN PRINT : 
GO TO VAL "2280" 

2220 FOR a=(buffer+ob) TO (buffer+10) 
2230 PRINT CHR$ PEEK a; 
2240 NEXT a 

2250 PRINT TAB VAL "17":PEEK (buffer+VAL " 
12")+VAL "256"'1=PEEK (buffer+VAL "13"); 
2260 PRINT TAB VAL "26" : PEEK (buffer+VAL " 
22")+VAL "256">:^PEEK (buffer+VAL "23") 
2270 REM PRINT TAB VAL "26": PEEK (buffer+ 
VAL "17")+VAL "256"':«PEEK (buffer+VAL "18" 
)+oa 

2280 IF side=oa THEN LET t=t+oa: POKE tra 

ck,(PEEK track )+oa 

2290 RANDOMIZE USR nexttrack 

2300 IF INKEY$="m" OR INKEY$="M" THEN GO 

TO VAL "5000" 

2310 NEXT t 

2320 PRINT "Last track-Press key for menu" 
: PAUSE oo 

2330 GO TO VAL "5000" 

2340 PRINT 'TAB oc:" Press z key to copy o 
r any key •feo clear screen" 

2350 IF INKEY$="" THEN GO TO VAL "2350" 
2360 IF INKEYi="z" OR INKEY$="Z" THEN COP 



2370 IF INKEY$="m" OR INKEY$="M" THEN GO 
TO VAL "5000" 

2380 PRINT AT VAL "4",oo;a$( TO VAL "544") 

: PRINT AT oc.oo 

2390 RANDOMIZE USR load 

2400 RETURN 

2500 REM Rename Program Routine 

2510 CLS : PRINT AT VAL "5", VAL "7";"Remov 

e Protect TabS while using Re 

name." 

2515 PRINT '''"Rename a disk program 

Insert disk" 
2520 PRINT ""ready?": PAUSE oo 
2525 DIM xSfVAL "9'^'): DIM y$CVAL "9"): DIM 

z$CVAL "9"): DIM atVAL "79") 
2530 LET t=oa 



2535 CLS : PRINT USR VAL "100": CAT "", 
2540 INPUT "change name from ": LINE y$ 
2545 CLS : PRINT AT VAL ';10",NOT PI; "NOTE! 
Name search can take 2 min." 
2550 GO SUB VAL "8010" 

2555 POKE track, oo: RANDOMIZE USR settrack 
: RANDOMIZE USR load 

2560 FOR i=buffer+VAL "188" TO buffer+VAL 
"4500" 

2565 IF PEEK i=VAL "255" THEN LET k=i+oa: 

FOR j=oa TO 9: LET x$(j)=CHR$ PEEK ( i+ j } 
: NEXT j : IF x$=y$ THEN INPUT "change na 
me to ": LINE z$: GO TO VAL "2580" 
2570 NEXT i 

2575 CLS : PRINT AT VAL "10",oo; "Program n 
ot found:"' "Press any key for menu": PAUS 
E oo: GO TO VAL "5000" 

2580 FOR i=oa TO VAL "9": POKE k.CODE z$(i 
): LET k=k+PI/PI: NEXT i 

2585 POKE track, oo: RANDOMIZE USR settrack 

: RANDOMIZE USR save 

2590 IF PEEK kOVAL "253" THEN LET k=k+oa 
! GO TO VAL "2590" 

2595 IF PEEK (k+oa}=VAL "249" OR t>VAL "79 
" THEN GO TO VAL "2610" 
__26g0_LEJ_J<=k+oa:-JF^PEEK k>oo AND PFFK k<V- 
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3300 POKE 23658,0: LET i$=INKEY$ 
3310 IF i$="z" THEN COPY 
3320 IF i$="c" THEN GO TO 3050 
3330 IF ia="m" THEN 60 TO 5000 
3340 IF i$="t" THEN GO TO 3020 
3350 GO TO 3300 
4000 REM Track Manipulation 
- Routines 

4010 CLS : LET m=oo 

4020 PRINT "Examine which track? [0-79]" 
4030 INPUT number 
4040 GO SUB VAL "7500" 
4050 GO TO VAL "4080" 

4060 BORDER 7: PRINT INK 7;#0;" alter bac 
k cont dire etc jump5 load menu name sa 
ve top" 
4070 RETURN 
4080 CLS 

4090 GO SUB 4060 

4100 FOR n=buffer TO buf f er+buf f lenth STEP 
17 



No "; number 
4120 PRINT AT 1,29 
p byte chr$" 

4130 FOR^=n TO n+IS 



PAPER 6; "Reading track 
" ";AT 1,1;"addr ma 



AL "80" THEN LET a(t)=PEEK k 
2605 LET t=t+oa: GO TO VAL "2595" 
2610 LET t=oa: GO TO VAL "2620" 
2615 IF aCt-1 )+1=a(t) THEN RANDOMIZE USR 
nexttrack: RANDOMIZE USR load: GO TO VAL 
"2625" 

2620 POKE track, a(t): RANDOMIZE USR settra 
ck: RANDOMIZE USR load: 

2625 FOR l=oa TO 9: POKE buf fer+1+1 , CODE z 

$(1): NEXT 1 ' 

2630 RANDOMIZE USR save 

2635 LET t=t+oa! IF a(t3<>oo THEN 60 TO V 
AL "2615" 

2640 CLS : PRINT PAPER ob; INK 7: "Program 
has been renamed ""'from ";y$;'^ to ";z 

2645 PRINT #0; "Press ENTER to rename anoth 
er program, or »"»m"" for Main Menu." 
2650 PAUSE oo: IF INKEY$=CHR$ 13 THEN 60 
TO 2515 

2655 GO TO VAL "5000" 
2660 STOP 

3000 REM Dir Analysis Routine 

3010 CLS : LET number=oo: GO SUB VAL "7500 

Tf 

3020 LET fn=oo: LET d=oo: LET n=buffer+VAL 
"188" 

3030 PRINT #1;"zs=copy c=cont m=menu t=t 
op" 

3050 IF PEEK VAL "23689"<6 THEN PRINT AT 
oo,oo;a$: PRINT AT 00,00;"* Directory / F 

ile Data Report 
3060 LET fn=fn+oa 

3070 PRINT "Filename ":fn:":":TAB 13; 
3080 LET n=n+oa 

3090 IF PEEK n=253 THEN GO TO VAL "3130" 
3100 IF PEEK n=VAL "254" THEN GO TO VAL " 

3220" 

3110 PRINT PAPER 6:CHR$ PEEK n; : PAPER 7 

3120 GO TO VAL "3080" 

3130 PRINT TAB 00; "Tracks used: " 

3140 LET ft =00 

3150 LET c=oo 

3160 LET n=n+oa 

3170 LET ft=ft+oa 

3180 IF PEEK n=VAL "249" THEN GO TO VAL " 
3240" 

3190 PRINT (PEEK n);","; 

3200 LET c=c+oc 

3210 60 TO VAL "3160" 

3220 PRINT ; "Empty name cell" 

3230 GO TO VAL »'3260" 

3240 PRINT 'ft-oa;" "; buff lenth;" Byte) Bl 
ockCs} ," 

3250 PRINT " 

— " AND (d=0 3 
3260 LET n=n+1 

3270 IF n=buffer+lastcell THEN PRINT '"La 
st name cell, Press m for menu"; PAUSE 00: 

GO TO VAL "5000" 
3280 IF PEEK n=255 THEN GO TO 3300 
3290 60 TO 3260 



Z^l^l XJTAB 9:x-buffer:TAB 17; PEEK x; 
" "jTAB 25:: PRINT CHR$ PEEK x AND (PEEK 
x>31 AND- PEEK x<123);"=ic" AND (number=0 A 
ND PEEK x>24a AND PEEK x<256);: PRINT " 

4150 NEXT X 
4160 GO TO 4180 
4170 NEXT n 

4180 POKE 23658,0: LET i$="": LET i$=INKEY 

4190 IF i$="c" AND n<=50111 THEN GO TO 41 
70 

4200 IF i$="l" THEN 

- ■ i=ttatt THEN 

i="s" THEN 

i="m" THEN 

="n" THEN 



4210 IF 
4220 IF 
4230 IF 
4240 IF 
TO 4170 
4250 IF 



GO TO 4000 
GO TO 4310 
GO TO 4630 
60 TO 5000 
LET n=buffer+171 



GO 

LET n=n+ 
GO TO 417 



. ^ . AND n<=50094 THEN 

17: GO TO 4170 

4260 IF i$="b" THEN LET n=n-34: 
0 

4270 IF i$="j" AND n<=49924 THEN LET n=n+ 
187: GO TO 4170 

4280 IF i$="d" THEN LET n=buf f er+diskname 
: GO TO 4170 

4290 IF i$="t" THEN LET n=buffer-17! GO T 
0 4170 

4300 60 TO 4180 

4310 IF INKEY$<>"" THEN GO TO 4310 
4320 POKE 23658,0: LET i$="": PRINT AT 20, 
0;"Change Name or Track (N/T}? ": LET i$= 
INKEY$ 

4330 IF i$<>"n" AND i$<>"t" THEN GO TO 43 
20 

4340 IF INKEY$<>"" THEN 60 TO 4340 
4350 PRINT AT 19,0;" Select Start addre 
ss Use keys Q, A, and ENTER" 

4360 LET y=x-17: LET z=2 

4370 PRINT AT z, 16; FLASH 1;">"; FLASH 0 
4385 IF INKEY$=^'a" AND z< 18 THEN LET y=y+ 
1: PRINT AT z.16;" ";AT z+1,16; FLASH 1;«^ 
>": FLASH 0: iET z=z+1 ' ' ' 

4390 IF INKEY$="c|" AND z>2 THEN LET y=y-1 



-1,16; FLASH ^;^> 
LET addr= 



PRINT AT z.16;" ";AT 
"; FLASH 0: LET z=z-1 
4400 IF INKEY$=CHR$ 13 THEN 
0 TO 4430 
4410 GO TO 4380 

4420 IF addr<buffer OR addr>buff lenth THEN 

PRINT AT 20,0; "Address out of range" '"P 
ress any key to re-enter": PAUSE 0: GO TO 
4390 



4430 IF i$="t" THEN 



PRINT AT 19,0; INK 2; 

En 



3.3 



ter (20681 to stop 
4440 IF i$="n" THEN 
e: ";n$: GO TO 4530 
4450 IF i$="t" THEN 
mber: ";z: GO TO 4470 
4460 IF i$<>"t" AND z$<>"n" THEN 
30 



INPUT "Enter Prgm Nam 
INPUT "Enter Track nu 



4470 IF z=2068 THEN GO TO 4580 

4480 IF PEEK addr=255 OR PEEK addr=253 THE 

N PRINT AT 20,1: INK 2: "Overwriting a ma 

rker at ":addr:TAB 32 "'Do you wish to con 

tinue? Cy/n)": INK 0: PAUSE 0 

4485 POKE 23658,0: IF INKEY$="n" THEN GO 

TO 4580 

4490 POKE addr.z 

4500 IF z=249 THEN GO TO 4580 

4510 LET addr=addr+1 

4520 GO TO 4450 

4530 FOR a=1 TO LEN n$ 

4540 IF PEEK addr=255 OR PEEK addr=s253 OR 
PEEK addr=249 THEN PRINT AT 20,1: INK 2; 
"Overwriting a marker at ";addr;TAB 32 »" 
Do you wish to continue?(y/n)": INK 0: PA 

USE 0 

4545 POKE 23658,0: IF INKEY$="n" THEN GO 
TO 4580 

4550 POKE addr,CODE n$Ca) 
4560 LET addr=addr+1 
4570 NEXT a 

4580 CLS : GO SUB 4060: GO TO 4110 

4590 IF LEN p$>=1 THEN LET p$=p$( TO LEN 

— p$-^} 

4600 PRINT AT lin , 23 ; p$ ; i$ : " " 
4610 IF INKEY$<>"'^ THEN GO TO 4610 
4620 60 TO 4580 

4630 IF INKEY$<>"" THEN GO TO 4630 

4640 POKE 23658,0: LET i$=INKEY$ 

4650 INPUT "Save to Same or New track? ";i 

4660 IF INKEY$<>"" THEN GO TO 4660 
4670 IF i$="s" THEN 60 TO 4700 
4680 IF ii="n" THEN 60 TO 4720 
4690 IF ii<>"s" OR i$<>"n" THEN 

0 

4700 GO SUB VAL "7600" 
4710 60 TO VAL "4080" 

4720 INPUT "New track number? ": number 
4750 IF INKEY$<>"" THEN GO TO VAL "4750" 
4760 IF number>VAL "79" THEN GO TO VAL "4 

080" 

4770 60 SUB VAL "7600" 
4780 GO TO VAL "4080" 
4790 LET P$=p$( TO LEN p$-1 3 
4800 PRINT AT VAL "18", VAL "2 

PAPER VAL "7" 
4810 GO TO VAL "4730" 
4820 COPY 

4830 GO TO VAL "4180" 
5000 REM Menu 

5010 BORDER ob: INK oo: PAPER 6; CLS 

5020 PRINT " DISK DOCTOR v2. 

25" 

5030 PRINT " For the TS 2068 

and LARKEN DSK400 
G.F. Chambers" 
5040 PRINT AT VAL "5", VAL "4";"1. Tracks U 
sed/Free" 

5050 PRINT '" 2. Program Header Reader" 



GO TO 464 



"20";p$;i$;" 



5060 PRINT '" 

5070 PRINT '" 
tf 

5080 PRINT »" 

5090 PRINT »" 
5100 PRINT 



3. Directory Analysis*' 

4. Examine/Modify a Track 

5. Rename a Program" 

6. Format a Disk" 

7. Select Drive (Now Drv 



": FLASH oa:dr: FLASH oo;")" 
5110 PRINT «" 8. Exit to Main Disk Menu 

>"; "PRESS A KEY": 



5120 PRINT »" 
oo 

5130 PAPER 7: LET 
5140 IF i$<"1" OR 



5130" 
5150 IF 
5160 IF 
5170 IF 
5180 IF 
5190 IF 
5200 IF 
5210 IF 



$=INKEY$ 
$>"8" THEN 



GO TO VAL " 



="1" THEN GO TO VAL "1000" 

i="2" THEN GO TO VAL "2000" 

i="3" THEN GO TO VAL "3000" 

i="4" THEN GO TO VAL "4000" 

i="5" THEN 60 TO VAL "2500" 

;="6" THEN GO TO VAL "6000" 

'7" THEN PRINT AT 21.oo:a$C TO 



32 J: 60 SUB VAL "8010": GO TO VAL '^•5000" 

5220 IF i$="8" THEN GO TO VAL "8000" 
5300 STOP 

6000 GO SUB VAL "8010": PAPER 7: CLS : PRI 
NT "FORMAT PROGRAM for LARKEN DSK400" 
6010 PRINT : PRINT : "ENTER DISK NAME OR DI 
SK DESCRIP-TION UP TO 1000 CHARACTERS . 

PRESS DELETE TO BACKSPACE PRESS 
'STOP' TO END DISK NAME " 
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6020 PRINT INK 1 ; "You are in Drive ":dr: 
INK 0 

6030 PRINT "Disk Name : "; 
6040 LET m=VAL "41000" 

6050 LET n$=INKEY$: IF INKEY$='"' THEN 60 
TO VAL "6050" 

6060 IF CODE n$=oo THEN GO TO VAL "6050" 
.6070 BEEP .02,oa 
6080 IF CODE n$=12 THEN PRINT CHR$ 8:CHR$ 
32;CHR$ 8;: LET m=m-oo: GO TO VAL "6130" 

6090 IF CODE n$=VAL "226" THEN POKE m.oo: 

GO TO VAL "6150" * 
6100 POKE m,CODE n$ 
6110 PRINT n$; 
6120 LET m=m+oa 

6130 IF INKEY$<>"" THEN GO TO VAL "6130" 

6140 GO TO VAL "6050" 

6150 POKE m,oo: PAUSE VAL "100": CLS 

6190 POKE VAL "43312", oo: REM 6=0 12=1 20 

=2 30=3 

6200 INPUT "Head speed 6 12 20 30 MS ? "jh 

6210 IF h=6 OR h=12 OR h=20 OR h=30 THEN 

GO TO VAL "6230" 

6220 GO TO VAL "6200" 

6230 IF h=6 THEN LET a=oo 

6240 IF h=12 THEN LET a=oa 

6250 IF hi=20 THEN LET a=ob 

6260 IF h=30 THEN LET a=oc 

6270 POKE VAL "43312", a 

6280 INPUT "Number of Sides ":a 

6290 IF a=oa THEN GO TO VAL '^'6320" 

6300 IF a=ob THEN GO TO VAL "6320" 

6310 GO TO VAL "6280" 

6320 POKE VAL "43310", a 

6330 PRINT AT 8,8:a:" Sided" 

6340 INPUT "Number of Tracks ":a 

6350 POKE VAL "43311", a 

6360 PRINT AT 9,8: a:" Tracks" 

6370 INPUT "Ok To Format ":n$ 

6380 IF n$<>"y" THEN CLS : PRINT "OK TO R 

UN": STOP 

6390 RANDOMIZE USR VAL "40000" 
6400 CLS : BEEP .2,10: BEEP .2,-2 
6410 GO TO VAL "5000" 
7000 STOP 

7500 REM Load a Track 

7511 POKE track, number: RANDOMIZE USR sett 
rack: RANDOMIZE USR load 
7550 RETURN 

7600 REM Save a Track 

7601 CLS : PRINT AT 10, 6: "Writing to track 
"; number"" Remove WRITE PROTECT sticke 

r, then press any key" 

7603 IF INKEY$<>"" THEN GO TO 7603 

7604 PAUSE oo 

7611 POKE track, number: RANDOMIZE USR sett 
rack: RANDOMIZE USR save 
7650 RETURN 
8000 STOP 

8010 INPUT "Drive 0 to 3 ? ";h 

8020 LET dr=h 

8025 LET h=h+oa 

8030 LET h=2"h 

8040 POKE drive, h 

8050 RETURN 

9500 RANDOMIZE USR VAL "100": LOAD "menu.B 
1" 

9900 SAVE "doctor. B1" 



Note: This excellent LARKEN 
program cannot be included in 
July/April Issue disk because 
the disk space is maxed out and 
there is no space left. But not 
to worry! This and another 
absolutely GREAT Disk Manager 
program (for next issue) will be 
included in the next issue disk, 
along with some Larken programs 
by Larry Kenny. 
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The BUDGET SOFTWARE, PART II 

Continuation from the April UP-DATE issue 

This BIG software began in the April issue. 
Some repetition is included for convenience of 
reading. There are several ways of attacking this 
group of programs. You can key in the listings, 
which will give you a operating BUDGET and 
SPREADSHEET program "in basic". Then you can use 
the TIMACHINE compiler program to convert the two 
Basic programs into fast running Machine Code. This 
will require you to have or to buy the Timachine 
software from tfovelsoft or a distributor. You could 
use a different Basic to MC Conpiler, but if you do 
you'll be on your own! Of course, the easy way and 
likely tte most practical is to order the April 
Issue disk to get the fully operational software 
(and a bunch of other programs and utilities). 



The listings are given for those who want to go 
the educational way of compiling the basic programs 
with Timachine, which will be the equilivant of a 
college semester on programming, except there are no 
tests (but no Girls eitherl). At my age the latter 
poses no problem of social signficance. If going 
this route, use the Check Sum tables given in the 
April and this issues for the two programs that are 
to be conpiled. There are two things to watch for. 
One is the similarity of the characters "i" (eye), 
"1" (el), and "1" (one). Take a look on page 9-18 
of the April issue, Line number 40. Notice the 
difference in the number 1 (one) and lower case "L". 
There is a difference but it is small. Also notice 
in line 320, that "i" can be mistaken for lower case 
"L". 

There is one more key-in error to watch for. 
Several LET and PRINT statements must be entered in 
the INVERSE mode (HOLD CAPS SHIFT and touch 4) after 
the first quote, then (CAPS SHIFT and touch 3) 
before the last QUOTE. These highlight tte menus. 
Line nuntoers that require this INVERSE print are the 
LET and PRINT lines of the BUDGET.BJ program: lines 
470, 480, 490, 2250, 2620, 2930, 3080, and 3240. 
Each failure to use INVERSE in these lines will 
result in the check sum table being off 4 bytes for 
each omission. The check sum table is given in ten 
line groups. Type CLEAR ENTER, then PRINT FREE. 
The check sum will not be accurate unless you 
started the key in project with a cleared conputer 
(OFF and then ON) and 38 652 FREE bytes. Loaded Code 
programs, such as a printer driver code, will threw 
off the check sum figures. Solve this by OFF, then 
RE-LOAD. 

The "SPREAD.BJ" program (given in this issue) 
is the second BASIC program listing which already 
includes the Timachine conmands needed for COMPILING 
the Basic program into Machine Code. The Compiler 
commands begin with (REMl) and can be entered 
directly in each line as given, Oice finished with 
the program Key-in, SAVE it to Disk or Cassette. 
Then LORD the TIMACHI^E program and pick up the 
instructions given in Bob Mitchell's Documentation 
in this issue "Part II". I would advise that you 
NOT make any program changes for your first attempt 
at keying in and compiling the SPREAD.BJ program. 
Later, after the whole integrated program group is 
checked out, you can then feel confident to go back 
and make custom changes to the two Basic programs 
"BUDGET.BJ and SPREAD.BJ", and re-conpile these 
custom programs which includes your changes. 

Now to discuss the additions made by UP-DATE 
for the three Disk Operating Systems. This involves ^ 



the two ancillary LOADER and DISK MENUS. For 
identification. Bob calls "budget. Bx" a "loader / 
manager". UP-DATE' s listings names this "BUDGET. Bl" 
and gives three different DCS versions. It was 
found that some conflicts existed when a previously 
loaded COUB program had not been eliminated before 
loading the budget and spread code programs from 
disk. Therefore, the "Cclear" CODE program was 
added to clear memory when the budget program is 
first loaded. See "Cclear explanation in this 
issue. Also, the re-set of RAM TCP was not 
included. The large budget and smaller spread codes 
are loaded without change of RAM TCP. This 
eliminated a chancy stoppage report of "out of 
memory" with one of the DOS versions. 

The DISK MENUS: Bob made mention of adding a 
disk menu, and UP-DATE added one for each of the 
three DOS versions. These disk menus can easily be 
adapted to other - u s e s for c o ord inatin g a d iffa r e n t- 



set of programs. In this instance, each of the Disk 
Menus give more options and allows you to place the 
Budget software on stand-by to do other computer 
functions. Beware of the fact that there isn't much 
FREE memory to add other programming lines. 
However, the menus are designed so that if you 
should happen to overwrite the Budget Code, it can 
be brought back in to resume. You would just lose 
the data "in the program that was in memory". Start 
up can be by loading either BUDGET. Bl, or Menu.Bl 
first. The Issue Disk uses a jazzy kaleidoscope 
auto boot utility, which also can be re-used for 
other effects. 

The Budget Program ensentole takes up a lot of 
space in UP-DATE, is NOT a simple "wedc end key-in 
project", but does provide an extensive and conplete 
software system to explore over a long period of 
time. Please feel free to call or write if you get 
stuck on something. For those of you who really 
want to delve into the programming, sufficient 
documentation is given to use your imagination and 
make this BUDOET software into a variety of 
different Spreadsheet applications. Be Bob 
Mitchell's guest I By the way, I changed to a new 
print wheel that gives a better Character "i" (eye), 
but alas, the ones (1) and lower case "L" look the 
same. So, I will circle lower case "L" in the 
listings when not obvious. If used alone and not 
circled, its a "1" (one). 

The Aerco prcode is used for the LARKEN DOS 
and the AERCO FD-68 DOS versions. For Larken DOS, 
this is the early cassette code as supplied with the 
Aerco printer interface (starting address 64000 and 
800 bytes). For the FD-68 DOS, the code is that 
supplied with the Aerco FD-68 and Jack Dohany's 
"RALOACER" program, which is re-loca table (Starting 
address is 64500 and is 867 bytes) . For both see 
the utility program listing "INir" given in this 
issue. 

Bob Mitchell's documentation which follows 
contains a notation at the top left comer of pages. 
This is the TASWCRD file program which contained the 
text sent to UP-DATE by Bob. The print outs of the 
documentation were done with the utility "MS-TAS" 
(Listing is given in this issue) . Next will be 
given the "SPREAD. GJ" basic listing to be conpiled 
by use of TIMACHItE, and following that will be Bob 
Mitchell's "Part II" documentation, and finally the 
Basic loader "BUDC^.Bl" and the Disk Menu "Merui.Bl" 
will be given. The utilities "MS-TAS" and "INTT" are 
included in the April Issue Disk", along with the 
complete BUDGET ensentole and several more programs. 
_ See the April Issue Catalog given elswhere. 
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Qxie p^, "bujJ3.Cr" 33280, 11200 

DOCUMEMTATICM FOR BUDGET 
PART II 

By Bob Mitchell, Willowdale, Qritario, 
Provided to TS Update Newsletter 
(Revision dated 880414) 

============= WHAT OTILTIES YOU WIEi NEH) == 

1. A copy of the BASIC conpiler "Timachine" (the amended version 
that handles the *D and *E routines properly) to oonpile 

"budget" and "spread", 

2. A Centronics printer interface code; "budget.Bx" as shown 
uses the "aeroo" prcode or, alternatively, the Larken extended 
BASIC printer code contained in its EPRCM cartridge. 



3. Cbpies of the Tasman utility "taswide" and the "taswotd" word 
processor program are optional. With these you can type up some 
help pages and recall them when needed to refresh your memory 
while using "budget". More on that later. 



s THE MAIN PROGEIAMS = 



4. There are three programs: 
a) budget.Bx 



b) budget.BJ 



c) spread. BJ 



expanded "loader/manager" or input/output 
program) this will NOT be conpiled. 

for compilation; change the category names 
in line 590 bo suit your needs, before you 
do the compilation. Pad out each name in 
this line with spaces to a total length of 
ten. 

also for conpilation; change line 8250 to 
natch the names in line 590 in your 
version of budget.BJ. No extra spaces will 
be needed in line 8250. This program will 
run slowly in BASIC providing you are 
using the Larken cartridge or Aeroo 
"proode.Cl". 



= THE LOADER/MANAGER ========== 

5. TYPE IN THE LCAEER, "budget.Bx". Check your typing carefully 
and SAVE it to disk (00 TO 310) ; then SAVE it to tape. You may 
want to make the loader into your autostart program. This option 
is not on the menu but is located at line 400 (for Larken). 



================== BUDGET COMPILATION ============ 

6. Now restart your 2068 (turn power off, then on — disk drive 
gate OPEN!) and LOAD TIMACHINE. Remeirberl You must have the 
corrected version of Timachine. Then LOAD the TAPE version of 
"budget" that you saved earlier (the one with no budget values). 
Make the change to line 590 explained above (para 4b). Compile 
the program; you will have to SAVE IT TO TAPE in the two parts 
(*D and *E) mentioned earlier . Make sure your 2040 printer is 
turned on so that you get a printout of the runtimes and 
variables generated by Timachine during the compilation process. 

7. Save this Timachine printout (with variable n/c addresses) 
for future use. Restart the 2068 and LOAD the TTO parts to the 
CORRECT ADERESSES as instructed by the Timachine pronpts. RUN 
the program by entering RANDOMIZE USR 32000. If you do not 
initialize via 32000 you will get strange results later as some 
variables will not be set up. If all is well, you should have a 
pull down menu on the screen, aiter the Date and budget Year to 
conplete this meiui. 

8. LOAD "budget.Bx" from disk and check the USR addresses and 
the SAVE code length in it to ensure they are what you got frcm 
your Timachine print-out. You will have two entry point 
addresses, one of which is 32000 and the other which is 
generated by the second REM I OPEN » which shsuld be 37166. If 



it is a different address, then you have altered the length of 
the program and you will have to change <37166> in loader lines 
190 & 260 to your new second entry point address. Ensure that 
the code length in loader line 40 for the SAVE represents the 
total of the code lengths from the *D and *E parts plus the 
lei^th set aside for machine code variables. The latter is the 
area that will hold the budget amounts. Now ReSAVE "budget.Bx" 
to disk and just to be safe, to tape, too. 

9. Now you are ready to enter your budget amounts for the 
entire year. It is best to work these out on paper first! Next, 
enter the actuals for the year so far. Check out the various 
displays at this point and if you are satisfied, SAVE the 
compiled program w ith your budget amounts to disk using o p tio n 3 



in the loader. A SAVE to TAPE wcHild also be wise. Test it all 
out by powering down and ICftDing "budget.Bx" and then LOAD 
"budget. CJ" using option 2. 

10. When you QUIT "budget" you return to the loader; you can get 
back to the budget program by using the restart option 4. 
Nothing will happen when you do this unless budget is loaded. 
Next time you LOAD budget from the disk, use option 2 to dump 
all the data for viewing or further entries. You can start 
afresh (with no data) using Option 1. If you don't want to use 
help routines take out lines 185 and 186; and change "6" to "5" 
in line 150. If you are using Larken DOS then delete line 330; 
renove the token <REM> from lines 65 and 333 and change line 196 
to read <IP k$="5" AND PEEK 32000=205 THEN CLSi RANDOMIZE USR 
58400: GO TO 60>. 



11. Key in the spreadsheet program "spread. BJ". Change the DATA 
in line 8250 to match your budget program category names. No 
extra spaces are needed here. 

12. If you have changed the length of "budget" at all, some 
changes will be needed. Examine your Timachine printout for 
"budget" and locate the arrays indicated in lines 8340 to 8370. 
Change variable <first> to the address of each array in turn. 
Change variable <last> to the address of the next variable on 
thfe printout minus 1. Next, locate the arrays shown in lines 
8590 and 8600. Change the variable <i> in each case to the 
address for that array minus 60. Now, SAVE "spread" to tape and 
to disk (00 TO 9000 for the latter). 

13. ^eadsheet is now ready for use. If you intend to conpile 
it with Timachine, junp to para 14 below and disregard the rest 
of this para. You may merge "spread. BJ" with the loader 
"budget.Bx" and use it as a BASIC program entirely. You will 
have to change <RAND0MI2E USR 58400> TO <Q0 SUB 8000> in line 
195 of the loader. Chaise line 8620 of "spcead.BJ" to read <G0 
TO 60> in lieu of <SrOP>. There will be some other minor changes 
to do after the HER(£: DELETE line 335; CLEAR 29000 in line 400 
will not be high enough if you want to SAVE this as an AUTOSTART 
version (Larken) ; try 30000 or higher. Delete line 9000. The 
spreadsheet will print out quite slowly so be patient. 



= SPREAESHEET OOMPILATICN = 



14. Of course, conpilation is the way to go! LOAD Timachine and 
then "spread" from your tape. Do the conpilation and SAVE it 
according to Timachine instructions. Restart the conputer and 
LOAD "spread. CJ"aDOE 58400. SAVE it immediately to your disk as 
"spread. GJ"OMK 58400,length; where the latter is tte length 
shown in the Timachine SAVE instruction at the end of your 
printout: <SAVE "m/c" OCOE address, length>. 

15. Now restart the conputer ard try what you have done. LOAD 
the loader "budget.Bx" and use option 2 to LOAD your budget 
code "budget. GJ"; make sure your printer is ready and then use 
option 5 to print out the spreadsheets. Each of the four sheets 
should print out in about two minutes. 



Code pgm, "bujJx.Cr"33280,2944 



BUDGET LOAISR — PROGRM BREAKDCWN 

SAVE budget with data from menu option 3. The 
cxde length 25923 is the sum of the *D and *E 
parts and the bytes for m/c variables from the 
Timachine conpilation. 

The menu {Budget Input/Output) starts here; ON 
ERR RESET restores the BREAK facility which ON 
ERR GO TO activates elsewhere ; CLOSE #2 
restores channel 2 to normal; OOT 127,18 
restores the wide printer font to normal PICA 
size; PCaCE 26703/4 restores Lprint to the 2040 
printer. 

Larken extended BASIC comnand to restore Lprint 
to normal 2040 printer. This line is inactive 
due to <REM>. 

SAVE will not take place unless Budget is loaded 
due to PEEK 32000 which must be 205. 
Print "help" routi ne called here. You m ust have 
taswide " 



Code pgm, 



180 

185 & 186 



Clothing: 
Dental: 

Electric: 
Gas: 



220-240 

250-270 

290 

310 

330 

333 

335 

400 



your disk" as well as Efie Reip 
program. If you BREAK, action goes to line 186 
due to ON ERR in line 185, then restores fcait to 
normal Sinclair and prints a bottom line prompt 
"BNIER". 

Restarts "budget" complete with all data; this 
will not work if budget is not loaded. Check 
that the address 37166 is still the correct 
second entry point from your Timachine 
operation. 

This line is set up to reload the aerco prcode 
which will be destroyed only if the help routine 
is called. If you are not incorporating the help 
routine, this line can be changed to remove the 
commands to reload prcode and do the PCKES 
shown. 

Initializing routine. 

Load budget with all saved data. 

Save routine starts; goes to line 40. 

Save the loader. 

Load the Aerco print code. 

Optional use of Larken print code. 

Load the spreadsteet compiled code. 

Autostart save (Larken). 

-30- 
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"help.cr"32280,3968 

BUDCSrr 00DIN3 SHEET dated 880411 

Ejqjenditures by Category 
! Major items such as furniture, appliances, 
renovations. Others in Misc. 

Including accessories: purses, wallets. 

Do not include costs paid by insurance, etc. 
Insurance premiums in Insurance. 

Including water heater rental or repair. 

Including any maintenance. 

cards, wrapping, dwri table 



Including 



Code Pgm, "bujJs. CI" 33280. 2048 



;===:= SPREADSHEBP ~ PROOWM BREAKDOWN ============ 

Timachine instruction. 
Ptint Using routine. 

DftXA for t$(19,10). Tte 19th is for "TOrALS»" 

Set the parameters for Print Using routine. The 
value of u$ is set to cater to nuiriaers as large 
as 999999.99 which in the budget program will 
handle up to $99999.99 and still leave a space 
between columns (months) to make the spreadsheet 
more readable. 

The Print Spreadsheet routine. This routine uses 
two FOR. . .^EXT loops <i> and <m> which, for each 
of the four types of spreadsheets, lode at the 
machine code from <first> to <last> in STEPS of 
60 and PEEK out the five bytes of each floating 
point nuntoer (lines 8410-8450) ;it then moves to 
the sub routine at 8630 to turn these into a 
printable decimal nimiber (ie, with dollars and 
cents). Note the boolean logic used in lines 
8310 and 8490. 

Cdversion of floating point nimibers to (tecimals 
for the printout. 



donations, Christinas cards and wrap. 

All food and non-food items (except liquor, 
beer and wine whether purchased at 
supermarkets, drug stores or other grocery 
outlets,aixl including health care items (but 
not patent medicines). 

Mortgage or rental costs, home insurance, 
repairs to major appliances (but furnace 
repairs in Gas) . 

Premiums for home, car, medical, dental, life, 
unemployment and other insurance policies. 

Dining out, take-out food, movies, VCR movies, 
movies, Cable TV rental, entertainment 
equipment and entrance fees. 

Used at home. 

Prescriptions drugs (less costs paid by 
insurance); patent medicines, doctor and 
hospital bills (less costs paid by insurance). 

General items such as magazines, newspapers, 
stamps, Lucaya fees, small household items 
(apply sales tax rdaates here). 

Magazines, hairdo's, perfime and other 
cosmetics, hobbies (conputers, photography, 
sports) . 

Including purchase of telephones, recorders, 
etc., used with telephone services. 



Prop. Taxes. Realty taxes. 

Transport: Car costs including insurance, parking costs, 
public transit and taxis, car and drivers 
licences, air, train ard bus tickets. 

Vacation: Telephone, lodgings and food on trips, home- 
sitting, (car costs in transportation) 



Housing: 

Insurance: 
Leisure: 

Liquor: 
Medical: 



3.7 
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Numeric arrays 



Table 1 is a break-down of the "budget" program identifying its 
major parts along with some useful sub routines which might be 
incorporated in other programs. 

Table 2 is a break-down of the "spread" program. This program 
contains a PRINT USINC3 routine and a conversion routine to 
change floating point nui±>ers to their decimal equivalents. 

Table 3 is an optional HELP routine which Larken users may add 
to your disk and called up from "budget.Bx"; this gives 
suggestions on allocating different types of expenditures to the 
18 categories. You should tailor your own help routine to suit 
your chosen category names. I used Tasword to type in this table 
and Taswide to call it up in 64 characters-per-line format; the 
Larken comnHrri PRINT USR 100: PRINT "help.CT" allows the help 
routine to be displayed on the screen without interfering with 
the budget program. See "budget.Bx" lines 185 and 186 for 
details. 



a{18,12) 
e( 18,12) 
m(18,12) 
t{ 18,12) 
u( 18,12) 
y{18,12) 

k(18) 
o(18) 
q(18) 
w(18) 
z(18) 



b$(18,10) 
c$(32) 
m$(12,3) 
t$(3,ll) 



PLANtED values per category per month. 
ACTUALS values per category per month. 
TOTALS YTD PLANNED per month per column (category). 
TOTALS YTD EtANtED per category per line (month). 
TOTALS yro AOrUALS per category per line-, 
TOTALS YTD ACTUALS per month per column. 

TOTALS (H.ANNED or ACTUALS) for graph routine. 
Pie chart array used to calculate sectors. 
Bar chart array used to calculate bars. 
Pie chart array used to calculate sectors. 
Pie chart array used to calculate sectors. 



Category names. 

32 spaces for erasing. 

Month names (3-letter abbreviations) . 

1=PLANNED; 2=AaUALS? 3=CDMPCSrrE 

(all in INVERSE VICEO) 



"fable 4 is a break-down of the loader pccgcam. 
Bob Mitchell 880415. 



Code pgm, "bujJb.CT" 33280, 8321 



BUDGET ■ 



■ PROGRAM BREAKDOWN 



110-180 
200-280 
300-400 
420 

430-550 
560-570 
580-630 
590 

650-690 
700-740 
750-820 
830-850 
860-870 
900-910 

920-1310 



1320-1440 

1460 

1470-1630 
1640-1700 
1710-1760 
1770-1800 
1810-1870 
1880-1910 
1920-2040 
2050-2400 
2410-2730 
2740-3000 
3010-3360 
3370-3790 
3800-3970 
3980-4750 
4760-4960 
4970-5400 
5410 



First entry point with Titnachine (used only when 
initializing a new year budget. 
Add zeros. 

Menu outline; sub of menu routine at 300. 
Print menus (370-400 controls menu cursor). 
Set array sizes. 
Set variables. 

Load b$( ) with category names. 
DATA lines for some menus. 

NOTE SPACES TO PAD OUT ALL DATA ITEMS TO TEN 

CHARACTERS IN LENGTH. 

Move menu cursor down. 

Move menu cursor up. 

Data input totaling. 

Data totaling for display. 

calculate totals for graphs. 

Calculate k() array for totals (planned or 

actuals) . 

Right justify screen display of integer values 
of arrays and totals. 

Print negative values in FLASHing RED; others 

in normal colours. 

Change PLANNED values, one by one. 

Second Timachine entry point. Used after 

initializing to preserve all data. 

Main menu. 

Menu for input of PLAN^ED data. 

Inpute values for whole year. 

Ibtaling PLANNED data for each category. 

Grand-totaling PLANNED data for all categories. 

Set budget year. 

Menu for Display routines. 

Display PLANNED data. 

Display COMPOSITE data. 

Display ACTUALS data. 

Display CATB3CRY data. 

Input ACTUALS data. 

Display Menu for Graphs. 

Pie chart routine. 

Table displays. 

Bar chart routine, 

ElTd Timachine compilation area. 



3.8 



Strings 

e$ Menu item from DKTA lines (Line 300). 

g$ Temporary store for t$( ) in graph display. 

k$ INKEY$. 

n$ File name. 

o$ Menu item from DATA lines (TAnp ififl). 

q$ Iiput control. 

s$ Justification workspace. 

x$ Date. 

y$ Year " YY 

z$ Input control. 

Numeric (excluding FCR...NEXr) 
bal Worksheet balance (actuals input), 

cf Continue flag used in display menu. 

cf2 Continue flag used in inputting Planned, 

c Column nuntoer. 

cr Counter, 
d Category number. 

r>ength e$ used in menus. 
Currency exchange rate. 
Expense during inputting Actuals. 
Max value for graph. 
Graph category (PLANNED or ACTUALS). 
Graph type (PIE or BAR). 
Graph flag (flags are used in branching). 
Keypress value in menu operation. 
Derived from k in cursor move routine. 
Month nunter. 

Flag used in justification routine. 
Location in printing bar charts. 
Derived from rl. 
Minimum in graphs. 
Month number used in YTD totaling. 
Value used in DRMing menu outline. 
Ditto. 

Temp store for month number. 
No. of items for menu. 
Y ard X coords for printing menu. 
Max item width for given menu. 
Print position for graphs, 
pc Integer of percentage, 

rl Radius of pie chart, 

s Totaling (sumnation). 

sa Totaling actuals. 

sa2 Totaling for actuals graphs. 

sa3 Totaling for planned graphs, 

sb Totaling planned, 

sea Scale used in bar graph, 

sf Totaling planned for year, 

ss Integer value of array item, 

sss Integer YTD PLAN^ED percentage. 

St Array type to be generated as s$. 

st3 Integer of t3. 

t3 Derived from sa2 or sa3. 

tp Totaling percentages. 

xl,yl Coordinates for PLOT in pie chart. 

x2,y2 Derived from xl,yl to print category codes 

z Input control. 

zz Integer used in printing bar chart. 



exch 
exp 
gmax 
gc 

gt 
gf 

k 



ol 
P 



PYfPX 
pw 



The " spread. BJ" basic program for conpiling with TIMACHIIE 

After Key-in make sure tlret it works. Load and initialize a 
printer port code, then type RUN, and enter "P" for planned 



UPDATE July 1988 
Programming 



8000 REM ILEN $<=32 

8005 REM ! LPRINT 

8010 REM ! LIST 

8020 REM !USR 58400 - 

8030 REM ! OPEN # 

8040 GO TO 8270 

8050 LET il=USN u$ 

8060 LET id=0 

8070 FOR j=l TO 11 

8080 LET j$=u$(j) 

8090 IF j$=CHR$ 46 THEN LET id=L 

EN u$-j 

8100 NEXT j 

8110 LET x$=SIR$ (SGN num*(INr ( 
ABS num*10®id+.55) )) 
8120 LET xd=[£N X$-id 
8130 FCR j=0 TO -xd 

-8T4trLE'r x$="0"+X$ 

8150 NEXT j 

8160 LET xd=LEN x$-id 

8170 IF id>0 THEN LET x$=x$( TO 

xd)+"."+x$(xd+l TO ) 

8180 FCR j=l TO il-LEN x$ 

8190 LET x$=CHR$ 32+x$ 

8200 NEXT j 

8210 RBIURN 

8220 RESTORE 8250 

8230 DIM t${19,10): FCR i=l TO 1 

9: READ t$(i): NEXT i 

8240 RETURN 

8250>DATA "CAPITAL" , "CLOTHINS" , " 
DENTAL" , "ELECTRIC" , "GAS" , "GIFTS" 
, "GROCERIES" , "HOUSING" , "I^BURANC 
E" , "LEISURE" , "LIQUOR" , "MEDICAL" , 
"MISC . " , "PERSONAL" , "PHONE" , "PROP 
.TAXES" , "TRANSPORT" , "VACflTION" 
8260 DATA "TOrALS»" 
8270 GO SUB 8220: LET u$="###### 
.##": OUT 127,15: POKE 23658,8: 
INPUT "Select Spreadsheet..."'"? 
=Planned A=Actuals" ' "0=Plann 
ed YTD B=Actuals YTD"; LINE i$ 
8280 LET tflag=0 

8290 PRINT #0; "CALCULATING/PRINT 
ING SPREADSHEEr[ENrER]=STOP" 
8300 LET num0=0 

8310 LPRINT ("PLANNED" AND i$="P 
")+( "ACTUALS" AND i$="A" )+{ "PLAN 
NED YTD" AND i$="Q" )+{ "ACTUALS Y 
TD" AND i$="B") 

8320 IF i$="P" CR i$="A" THEN LP 
RINT " JAN FEB 

MAR APR MAY 

JUN JUL AUG SEP 

OCT NOV DEC T 

OTAL" 

8330 IF i$="Q" CR i$="B" THEN LP 
RIOT " JAN FEB 

MAR APR MAY 

JUN JUL AUG SEP 

OCT NCV DEC " 

8340>IF i$="P" THEN LET first=50 
534: LET last=51613: REM a( ) 
8350 IF i$="Q" THEN LET first=54 
044: LET last=55123: REM t( ) 
8360 IF i$="A" THEN LET first=51 
614: LET last=52693: REM e( ) 
8370 IF i$="B" THEN LET first=55 
124: LET last=56203: REI^l u( ) 
8380 LET cat=l 

8390 FCR i=first TO last STEP 60 
8400 LPRINT t$(cat);: LET tot=0: 
FCR m=0 TO 55 STEP 5 
8410 LET a=PEEK (i+m) 



8420 LET e=PEEK (i+mfl) 

8430 LET d=PEEK (i+nH-2) 

8440 LET c=PEEK (i+m+3) 

8450 LET b=PEEK (i+nH-4) 

8460 GO SUB 8630 

8470 GO SUB 8050 

8480 IF INKEY$=CHR$ 13 THEN GO T 

O 8620 

8490 IF cat=19 AND (i$="Q" CR i$ 
="B") THEN LET nural=num: GO TO 8 
750 

8500 LET tot=tot+num 

8510 POKE 23692,-1: LPRINT x$; 

8520 NEXT m 

8530 IF i$="P" CR i$="A" THEN LE 
T num=tot: GO SUB 8050: LPRINT " 
":x$ 



8610 LET cat=19: GO SUB 8400 
8620 LPRINT " ' ' : STOP 
8630 IF aOO THEN GO TO 8680 
8640 

8650 LET num=256*c+d 

8660 IF e=255 THEN LET num=num-6 

5536 

8670 GO TO 8730 
8680 LET exp=a-128 
8690 LET sign=-l 

8700 IF e<128 THEN LET sign=l: L 
ET e=e+128 

8710 LET mant=e/2564d/65536+c/16 
777216+b/4294967296 
8720 LET num=sign*2®exp*mant 
8730 LET x$=STR$ num 
8740 RETURN 



8540>IF i$="Q" CR i$="B" THEN LP 

RINT " " 

8550 IF tflag THEN RETURN 

8560 LET cat=cat+l 

8570 NEXT i 

8580 LET tflag=l 

8590 IF i$="A" OR i$="B" THEN LE 
T i=57314: REM z( ) 
8600 IF i$="P" CR i$="Q" THEN LE 
T 1=53804: REM o( ) 



LINE Notes 



8750 LET tflag=l 

8760 LET numO=numl+numO 

8770 LET num=numO 

8780 GO SUB 8050: GO TO 8510 

8790 REM ! CLOSE # 

9000 CLEAR : RANDOMIZE USR 100: 

SAVE "spcead.BJ"; LIST 



8050 variable is IL 

8070 j=one to IL 

8110 the ® synt)ol is my printers EXP (sym shf H) arrow 

8180 j=one to IL 

8230 FCR I=one to nineteen 

8300 is a zero- any variable O would be in lower case. 

8380 LET cat=one 

8400 is zeroes 

8420 I+M+one 

8490 variable is one 

8510 minus one 

8560 cat+one 

8580 tflag=one 

8640 is just the line number with one space after 

8700 sign=one 

8720 the ® is my printers EXP (sym shift H) arrow 

8750 tflag=one 

8760 the variable is NUMzero. Count the O as having a slash 



LINE- FREE CHECK 

START=38652 

8100=38492 

8200=38275 

8300=37732 

8400=38032 

8500=36796 

8600=36539 

8700=36031 

9000=36057 



CHECK SIM to help verify your 
key-in accuracy. Start with a 
NEWED canputer that has FREE 
Memory of 38652 bytes. 
Figures given are what you must 
get with PRINT FREE after the 
line number has been entered. 

<CLEAR> before <PRINT FREE>. 



After making sure that the Check 
Sum is right, change the last 
line to suit your DOS syntax. 
Then COMPILE with TIMACHINE. 
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" BUDGET. Bl" for Aerco FD-68 DOS 
Start line is 20. 

20 LET base=64500: IF PEEK bas 
e<>24 THEN our 244,1: CAT "Ccl 
ear. bin",: CAT "Cprccx3e.bin", 

30 GO TO 60 

40 OUT 244,1: MOVE "budgetCY.b 
in", 3 2000, 25923 

60 ON ERR RESET : LET base=64 
500: BCEDER 1: PAPER 1: I!^ 7: 
CLS : RANDOMIZE USR (base+2): P 
RINT AT 4,0;"=======BUDGET INPU 

T/OUrPm:======";"TAB 7;"1> Bud 

get [Set-Up3""TAB 7;"2> Budget 

pjOADT^^AB T;r3?"BuagertSfiV 

E]""TAB 7;"4> Budget [re-Start 
]"''TAB 7;"5> PRINT Spreadsheet 
s"'TAB 10; "on Wide Printer"' 'TA 
B 7 ; " 6> Disk [ Menu ] " ' ' " ====== 

====Select Cption=========" 

130 PAUSE 0: LET k=QODE INKEY$- 
48: IF k<l CR k>6 THEN GO TO 1 
30 

155 IF k=6 THEN OUT 244,1: CKT 
"MenuBl.bas", 

160 IF k=l THEN GO TO 220 
170 IF k=2 THEN GO TO 250 
180 IF k=3 AND PEEK 32000=205 T 
HEN GO TO 40 

190 IF k=4 AND PEEK 37166=205 T 
HEN RANDOMIZE USR (base+2): CL 
S : LPRINI : ON ERR GO TO 60: 
RANDOMIZE USR 37166: GO TO 60 

195 IF k=5 AND PEEK 32000=205 T 
HEN RANDOMIZE USR base: CLS : 
POKE (base+4),131: LPRINI : OUT 
244,1: CAT "spreadCJ.bin",: ON 
ERR GO TO 60: RANDOMIZE USR 5 
8400: POKE 23658,0: GO TO 60 
210 GO TO 60 

220 RANDOMIZE USR (base+2): IF 
PEEK 32000O205 THEN OUT 244,1 
: CAT "budgetGJ.bin", 

230 RANDOMIZE USR 32000 

240 GO TO 60 

250 RANDOMIZE USR (base+2): OUT 
244,1: CAT "budgetCY.bin",: ON 
ERR GO Tt3 60: RANDOMIZE USR 3 

7166 
260 GO TO 60 

310 our 244,1: MOVE "BudgetBl.b 
as", 20: GO TO 60 

350 RANDOMIZE USR base: CLS : I 
NPUT "Enter line width: ";11: P 
OKE (base+4),ll-l: BEEP .5,12: 
INPUr "Does printer need a line 

feed? <1> Yes - <2> No ";lf: 
IF lf=l THEN PCKE (base+5),10 

360 CLS : PRINI AT 10,2; "Ready 
for Centronics printer" "TAB 2; 
"To resume BUDGET, <G0 TO 20>" : 

STOP 

SEE FOOT NOTES under the Aerco 
FD-68 Disk Menu program listing. 



"Disk Menu" for Aerco FD-68 DOS 
Start line is 10 

10 INK 3: BORDER 0: PAPER 0: C 

LS 

20 FOR n=0 TO 31: PRINT AT 2,n 
;"*";AT 20,n;"*": NEXT n: FOR n 
=3 TO 19: PRINT KT n,0;"*";AT n 
,31;"*": NEXT n: INK 7 

30 PRINT AT 4,7; "The Disk Mana 
ger";AT 7,5; "1> Load Your Budge 
t";AT 9,5; "2> Load Spread Sheet 
";AT 11,5; "3> EXIT Budget To BA 
SIC";AT 12,8;"[for printing]";A 
T 14,5; "4> Save this Budget Dat 
a"»AT lfi,^ f"'^> Qr> ho Main ften u" 



;AT 18,5; '•6> Re-Set Computer" 

40 PAUSE 0: LET aa=OODE INKEY$ 
-48: IF aa<l OR aa>6 THEN GO T 
0 30 

60 OUT 244,1: IF aa=l THEN CA 
T "budgetCY.bin",: GO TO 10 

70 IF aa=2 THEN CAT "spreadCJ 
.bin",: GO TO 10 

80 IF aa=6 THEN OUT 244,0: RA 
NDOMIZE USR 0 

90 IF aa=4 THEN MOVE "budgetC 
Y.bin", 32000, 25923: GO TO 10 
100 IF aa=5 THEN CAT "BudgetBl 

110 IF aa=3 THEN CLS : OUT 244 
,1: CAT "Cprcode.bin",: INPUT " 
Select: 

1> For TS-2040 ~ <2> Centroni 
cs"7p: IF p=l THEN RANDOMIZE U 
SR 64502: STOP 

120 IF p=2 THEN RANDOMIZE USR 
64500: INPUT "Enter Line width 
";w: POKE 64504, (w-1): INPUT "E 
nter ""0"" for no Line Feed or 
'•"10"" for Line Feed "; 
f : POKE 64505, f: LPRINT • : PRIN 
T AT 10,2; "Ready to LPRINT" "TA 
B 2; "To resume BUDCSTT, type <RU 
N>": STOP 

130 GO TO 10 

Foo^ Notes: This Disk Menu and 
the Aerco Budget Loader have a 
relocatable Aerco printer code 
as given in Jack Dohany's 
RALOAISIR program. The code is 
located at 64500,867. The top 
67 bytes are reserved for VARS 
that need to be preserved from 
one Basic program to another. 
POKE the vars starting at 65300 
before a new program is loaded 
or before a new VAL program is 
loaded. Then PEEK the vars 
back after the LOAD. 

Both this Menu and the BUDGET 
Loader have a Stand By printer 
code initiali2ation routine 
to use when you need to put the 
Budget program on stand-by to 
do some direct printing. 



UPDATE July 1988 
Programming 

"Disk Menu" for Larken DOS 
Start Line is 10 

10 INK 3: BORDER 0: PAPER 0: C 

LS 

20 FCR n=0 TO 31: PRINT AT 3,n 
;"*";AT 21,n;"*": NEXT n: FOR n 
=3 TO 21: PRINT AT n,0;"*";AT n 
,31;"*": NEXT n: INK 7 

30 PRINT AT 5,7; "The Disk Mana 
ger";AT 7,5; "1> Load Your Budge 
t";AT 9,5; "2> Load Spread Sheet 
";AT 11,5; "3> Load Printer Code 
";AT 12,8;"To Print Centronics" 
;AT 14,5; "4> Save this Budget' D 
-^-a ^AT 16,5? "5> Go^ M ai n M en — 
u"7AT 18,5; "6> EXIT Budget Prog 
ram" 

40 PAUSE 0: LET aa=O0DE INKEY$ 
-48: IF aa<l OR aa>6 THEN GO T 
O 30 

45 IF aa=6 THEN RANDOMIZE USR 

0 

50 RANDOMIZE USR 100: OPEN #4, 
"dd" 

60 IF aa=l THEN PRINT #4: LOA 
D "budget. CY"OODE 

70 IF aa=2 THEN PRINT #4: LOA 
D "spread. GJ"QODE 

80 IF aa=3 THEN CLS : 00 TO 1 

20 

90 IF aa=4 THEN PRINT #4: SAV 
E "budget. CY"Q0DE 32000,25923 

100 IF aa=5 THEN PRINT #4: LOA 
D "BUDGET. Bl" 

110 GO TO 10 

120 CLS : PRINT AT 10,5; "Please 

Stand by . . .": LET base=6400 
0: PRINT #4: LOAD "Cclear.Cl"00 
DE : PRINT #4: LOAD "prcode.Cl" 
CODE : RANDOMIZE USR base: POKE 

26703,205: POKE 26704,251: POK 
E 64451,254: POKE 64457,0: POKE 

64458,0: CLS : INPUT "Line Wid 
th? ";w: POKE 64459, w-1: INPUT 
"Printer need Line feed? 

<1> yes or <2> No ";lf: IF If 
=1 THEN POKE 64460,10 

130 IF If =2 THEN POKE 64460,0 

140 IF lf<l CR lf>2 THEN GO TO 

120 

150 LPRINT : CLS : PRINT AT 10, 
5; "READY to PRINT" "TAB 5; "When 
finished, type <RUN>.": STOP 



AO 



{CLOTHING 
"■ENTRL 

jelectric 
Igifts 

iGROCEP.IES 

iHOUSING 

ilNSURflNCE 

Ileishre 

lOUOR 

Imedicrl 

liilSC . 

jpersonrl 

PHONE 

iPROP .TfiXES 
p-RflN SPORT 
luflCflTIQN 



30 
20 



"BUDGET. Bl" for Larken DOS 
Starting Line is 60. 
30 GO TO 60 

40 RANDOMIZE USR 100: SAVE "bu 
dget.Cy"OODE 32000,25923 

60 ON ERR RESET : CLOSE #2: O 
UT 127,18: POKE 23703,0: POKE 2 
6704,5:: BORDER 0: PAPER 0: INK 
7: CLS : PRINT AT 4,0;"======= 

BUDGET iNPur/ourpur======" 

65 REM RANDOMIZE USR 100: CLO 
SE #3 

70 PRINT 1> Budget [set up 

]" 



80 PRINT ' 
90 PRINT ' 
100 PRINT ' 
3" 

105 PRINT ' 
eets" ' " 
110 PRINT ' 



• 2> Budget [load]" 
' 3> Budget [save]" 
' 4> Budget [restart 

" 5> Print Spreadsh 

on Wide Printer" 

" 6> Disk Menu" 




UPDATE July 1988 
Programming 

"BUDGET. Bl" for the Oliger DOS 
Starting Line is 60 

10 REM ****BUDGEr LOADER**** 
20 REM ** See Cclear ** LOAD / 
"Cclear"OODE 
30 GO TO 60 

40 SAVE /"budget. CY"OODE 32000 
,25923 

60 ON ERR RESET : CLOSE #2: BO 
RDER 0: PAPER 0: INK 7: CLS : LE 
T /p=t: PRINT AT 4,0;"=======BUD 

GET INPUT/OUTPUT======" 

65 REM CLOSE #3 

70 PRINT •" 1> Budget [set up 



80 PRINT ' 
90 PRINT ' 
100 PRINT ' 

-4^ 



2> Budget [load]" 
3> Budget [save]" 
4> Budget [restart 



115 PRINT 
120 PRINT 
tion========= 



•=Select op 



130 PAUSE 0 

140 LET k$=INKEy$ 

150 IF k$<"0" OR k$>"7" THEN G 
0 TO 150 

160 IF k$="l" THEN GO TO 220 

170 IF k$="2" THEN ON ERR GO 
TO 60: GO SUB 250 

180 IF k$="3" AND PEEK 32000=20 
5 THEN GO TO 40 

185 IF k$="7" THEN ON ERR GO 
TO 186: RANDOMIZE USR 100: LOAD 

"taswi.Cx"OODE : RANDOMIZE USR 
64300: PRINT CHR$ 3;: PRINT US 
R 100: PRINT "help.CT" 

186 IF k$="7" THEN ON ERR RES 
ET : POKE 23607,60: PRINT #1; F 
LASH l;"[ENrER]": PAUSE 0: GO T 
O 60 

190 IF k$="4" AND PEEK 37166=20 
5 THEN ON ERR GO TO 60: RANDO 
MIZE USR 37166 

195 IF k$="5" AND PEEK 32000=20 
5 THEN CLS : RANDOMIZE USR 100 
: LOAD "prcode.Cl"OODE : POKE 2 
6703,205: POKE 26704,251: POKE 
64459,131: POCE 64451,254: POKE 

64460,0: POKE 64456,1: POKE 64 
458,0: POKE 64457,0: PRINT #4: 
LOAD "spread. CJ"OODE : RANDOMIZ 
E USR 58400: GO TO 60 

200 IF k$="6" THEN RANDOMIZE U 
SR 100: LOAD "Menu.Bl" 

210 GO TO 60 

220 RANDOMIZE USR 100: LOAD "bu 
dget,GJ"CODE 
230 RANDOMIZE USR 32000 
240 GO TO 60 

250 RANDOMIZE USR 100: LOAD "bu 
dget.CY"OODE 
260 RANDOMIZE USR 37166 
270 GO TO 60 

310 RANDOMIZE USR 100: SAVE "bu 
dget.Bl" LINE 60: REM ** Direc 

t SAVE of this Basic Program 
320 STOP 

350 RANDOMIZE USR 100: LOAD "pr 
code.Cl"CODE : PCSCE 26703,205: 
POKE 26704,251: POKE 64459,131: 

POKE 64451,254: POKE 64460,0: 
POKE 64456,1: PCSCE 64458,0: VQK 
E 64457,0: CLS : INPUT "Line Wi 
dth?";ll: POKE 64459,11-1: LPRI 
NT : STOP : REM ** To enable Ce 
ntronics Printer. 



Disk Menu for Oliger DOS 
Start Line is 10. 

10 INK 3: BOEDER 0: PAPER 0: C 

LS 

20 FC» n=0 TO 31: PRINT AT 2,n 
;"*";AT 20,n?"*": NEXT n: FOR n= 
3 TO 19: PRINT AT n,0;"*";AT n,3 
1;"*": NEXT n: INK 7 

30 PRINT AT 4, 7, -"The Disk Mana 
ger";AT 7,5; "1> Load Your Budget 
";AT 9,5; "2> Load Spread Sheet"; 
AT 11,5; "3> EXIT Budget To BASIC 
";AT 13,5; "4> Save this Budget D 
ata";AT 15,5; "5> Go to Main Menu 

40 PAUSE 0; LET aa=O0DE INKEY$ 
-48: IF aa<l OR aa>6 THEN GO TO 
30 

60 IF aa=l THEN LOAD /"budget. 
CY"OODE 

70 IF aa=2 THEN LOAD /"spread. 

cj"cora; 

80 IF aa=3 THEN ClEhR 65535: C 
LEAR 65367: LOAD /"DOSDEX MGR" 

90 IF aa=4 THEN SAVE /"budget. 
CY"OODE 32000,25923 

100 IF aa=5 THEN LOAD /"BUDGET. 
Bl" 

110 GO TO 10 



Foot notes 

Upon finishing with the BUDGET 
program, a selection of <3> will 
boot in the DOSDEX MGR program 
for selection of another Basic 
program to load (assuming that 
the either this same disk has 
the DOSDEX MGR program. If not 
then you can install a disk that 



105 PRINT '" 5> Print Spreadsh 
eets"'" on Wide Printer" 

110 PRINT '" 6> Disk Menu" 

120 PRINT ' ' "========Select op 

tion==========" 

130 PAUSE 0 

140 LET k$=INKEY$ 

150 IF k$<"0" CR k$>"6" THEN GO 

TO 150 

160 IF k$="l" THEN GO TO 220 
170 IF k$="2" THEN ON ERR GO TO 
60: GO TO 250 

180 IF k$="3" AND PEEK 32000=20 
5 THEN GO TO 40 

190 IF k$="4" AND PEEK 37166=20 
5 THEN ON ERR GO TO 60: RANDOMIZ 
E USR 37166 

195 IF k$="5" AND PEEK 32000=20 
5 THEN CLS : LET /p=o: POKE 2332 
4,0: POKE 23323,132: LOAD /"spre 
ad.CJ"OODE : RANDOMIZE USR 58400 
: GO TO 60 

200 IF k$="6" THEN LOAD /"Menu. 
Bl" 

210 GO TO 60 

220 LOAD /"budget. GJ" CODE 
230 RANDOMIZE USR 32000 
240 GO TO 60 

250 LOAD /"budget. GJ"OODE 
260 RANDOMIZE USR 37166 
270 GO TO 60 

310 SAVE /"budget. Bl" LINE 330 
320 GO TO 60 

Foot Note: There are two code 
budget programs. One is 
budget. CJ and has no data, 
budget. CY is created (line 40) 
when you save your first data 
program. 

Selecting <4> will clear out 
the data of an existing program 
and start over. 

<Q0 TO 310> will SAVE a back up 
of this basic loader. 



hi 



"BUDGET. B3" Alternate Loader for 
"MAX DOS" (Stacked Larken and 
Oliger DOS 

Starting Line=330 

10 REM ****BUDCaErr LOADER**** 
20 CLEAR 31999 
30 GO TO 60 

40 SAVE /"budget. CY"O0DE 32000 
,25923 

60 ON ERR RESET : LET /p=o: CL 
OSE #2: REM ** OPTION FOR STACJOE 
D DOS 

61 REM ** OUT 127,18: POKE 237 
03r0s POCE 26704,5.- REM * FCR AE 
ROO CODE 

63 ON ERR RESET : BORDER 0: PA 
PER 0: INK 7: CLS : PRINT AT 4,0 
."======RrTnnFrr TMPrTr/nrTr PTTr=== 



UPDATE July 1988 
BUDGET. B3 Programming 

An Interesting Productivity Program for MAX DOS 

Are you ready for this? Well, some day you will be. This 
is a Budget Loader program to be used with "MAX DOS", Larken and 
Oliger DOS "stacked". It works like a charm at UPDATE. Now 
this will repeat some of the information contained in the 
article "MAX DOS", but will serve as an example of a useful 
program. The senario is: Larken LK cartridge in the Dock port 
and the full Oliger DOS in place. RGB is via the Oliger 
hardware. Printer support is via the Oliger SAFE DOS. LET/p=t 
enables the TS-2040 printer, or LET/p=o enables the Centronics 
printer. Maximum line width is controlled via POKE 23323, width. 

Note line 330, which is the Auto Run Line. Both Oliger and 
Larken DOS are initialized in this line. <LET/d=l> assigns disk 
#1 to the Oliger DOS. <PRINr #4: GO TO 0> assigns disk zero to 
the Larken DOS. From then on, the disk syntax used results in 
-.autonBtic-^s witching of the-disk-d riv o s as n ee ded , — Thi&^aHows— 



65 REM RANDOMIZE USR 100: CLOS 
E #3 

70 PRINT ' " 1> Budget [ set up 



2> Budget [load]" 
3> Budget [save]" 
4> Budget [restart 

" 5> Print Spreads h 
on Wide Printer" 
" 6> Disk Menu" 
" 7> HELP!" 

=====Select op 



]•• 

80 PRINT " 
90 PRINT " 
100 PRINT " 
]" 

105 PRINT 
eets"' " 

110 PRINT '" 

115 PRINT '" 

120 PRINT • ' 
tion==========" 

130 PAUSE 0 

140 LET k$=INKEY$ 

150 IF k$<"0" CR k$>"7" THEN GO 

TO 150 

160 IF k$="l" TEffiN GO TO 220 
170 IF k$="2" THEN ON ERR GO TO 
60: GO SUB 250 

180 IF k$="3" AND PEEK 32000=20 
5 THEN GO TO 290 

185 IF k$="7" THEN ON ERR GO TO 
186: CLS : RANDOMIZE USR 100: L 

CAD "taswi.Cx"OODE : RANDOMIZE U 
SR 64300: PRINT CHR$ 3; : PRINT U 
SR 100: PRINT "help.CT" 

186 IF k$="7" THEN ON ERR RESET 
: POKE 23607,60: PRINT #1; FLAS 

H 1;"[ENTER]": PAUSE 0: GO TO 60 
190 IF k$="4" AND PEEK 37166=20 
5 THEN ON ERR GO TO 60: RANDOMIZ 
E USR 37166 

195 IF k$="5" AND PEEK 32000=20 
5 THEN CLS : LET /P=0: RANDOMIZE 

USR 100: OPEN #4,"DD": POKE 233 
23,132: PRINT #4: LOAD "spread.C 
J"OODE : RANDOMIZE USR 58400: GO 

TO 60: REM ** For Stacked DOS 

196 REM for Aeroo code- IF k$=" 
5" AND PEEK 32000=205 THEN CLS : 

RANDOMIZE USR 100: OPEN #4,"DD" 
: LOAD " pr code. C2" CODE : POKE 26 
703,5: POKE 26704,251: POKE 6425 
9,131: PRINT #4: LOAD "spread.GJ 
"OODE : RANDOMIZE USR 58400: GO 
TO 60 

200 IF k$="6" THEN RANDOMIZE US 
R 100: LOAD "Menu.Bl" Jj^ 2 



1.6 mgbts of disk space under direct program control (two 80 
track drives). Other contoos of drives are acceptable. As 
programmed, disk "PROGRAM" SAVE and LOADs are to the LARKEN disk 
in disk zero, and Disk "DATA" saves and LOADS are to the Oliger 
Disk in drive #1. But this can easily be changed as desired. 
The convertable line numbers are: 40, 185, 196, 200, 220, 250, 
310, and 335. All you need do is change the LOAD SAVE syntax 
and the right drive will be auto selected. 

Note lines 40 and 250, which uses the Oliger SAVE and LOAD 
of the BUDGET DATA. When these lines execute, the drive is 
switched to drive #1. All other LOADS and SAVES use LARKEN DOS 
syntax, which switches to drive #0. A good operating practice 
with MAX DOS is to use one DOS format for PROGRAMS and the other 
for DATA. The drives are switched automatically. MAX DOS 
allows the user to FORMAT Oliger disks direcUy or to load the 
Larken tool kit disk to FORMAT Larken Disks, Disks may be 
prepared for other users who operate with either of the two 
single DOS, Larken or Oliger. 

There are two separate operating protocols. Normally one 
would think of the "stacked DOS" as mostly having to do with 
operations to and from the disk drive. Actually the most 
significant advantages of MAX DOS are the "cumulative" Extra 
Basic functions which can be used without regard to which disk 
format is being used. During operation one does not pay any 
attention to "which disk is being used", as this does not 
matter. Cne just uses the programming syntax to do the function 
In this program, menu option <7> HELP, results in the 
of a Larken function which brings up a "disk file to 
for viewing. It is the "taswi,Cx"CDDE file, which 
to be a TASWIDE 64 Column "Help File", which is printed 



needed, 
exercise 
screen" 
happens 



to screen. 

Other Extra Basic functions of either DOS are "at home" in 
the MAX DOS environment. Programs tl^t contain "mixed" DOS 
syntax are acceptable for whichever disk format will be used for 
SAVE or LOAD. The Oliger "Fast FCR counter" is at home in a 
Larken Disk program, and the Oliger Printer Driver works as well 
in a Larken format as it does in a Oliger Format. A single 
drive can be used as easily as one normally does with either 
DOS. Program prompting to "install Larken Disk or Oliger Disk" 
before a disk command would be appropriate for single drive 
systems, but not necessary with a two drive system. 

Since the two EPROMS of Oliger and LARKEN DOS operate in 
different e^nsion banks, the extra basic functions that they 
contain can be expanded. These groups of new functions are 
additions to the TS-2068 ROM, but are different in concept, ie, 
they are "whole routines of productive functions", rather than 
"loops to support the TS-2068 Basic". The extra basic functions 
add substantial computing power to the TS-2068. 



210 GO TO 60 

220 RANDOMIZE USR 100: LOAD "bu 
dget.GJ"aDDE 
230 RANDOMIZE USR 32000 
240 GO TO 60 

250 LOAD /"budget.CY"CX>DE 
260 RANDOMIZE USR 37166 
270 GO TO 60 
280 STOP 
290 00 TO 40 
300 GO TO 60 

310 RANDOMIZE USR 100; SAVE "BU 
DGET.Bl" LINE 330 
320 STOP 

330 LET /p=o: LET /d=l: RANDOMI 
ZE USR 100: OPEN #4,"dd": PRINT 
#4: GO TO 0: REM ** Initializes 
Dual DOS, Larken disk in drive 0 
, Oliger in drive 1, TS-2040 pri 
nting 

331 REM ** RANDOMIZE USR 100: L 
OAD "prcod e .C2"CDEg ; REM aerco 

pvccde 

333 REM RANDOMIZE USR 100: OPEN 
#3,"lp" 

335 RANDOMIZE USR 100: LOAD "sp 
read.CJ"03DE 
340 POKE 23658,0 
350 GO TO 10 

400 CLEAR 29000: RANDOMIZE USR 
102: GO TO 330 



Alternate BUDGET. Bl ( Ui\AKCv) 
By Bob Mitchell. Includes the 
Taswide Help File option, and a 
different Aerco prcode handler. 

10 REM ****BUDGET LOADER**** 
20 CLEAR 31999 
30 GO TO 60 

40 RANDOMIZE USR 100: SAVE "bu 
dget.CY"OODE 32000,25923 

60 ON ERR RESET : CLOSE #2: OU 
T 127,18: POKE 23703,0: POKE 267 
04,5:: BORDER 0: PAPER 0: INK 7: 
CLS : PRINT AT 4,0; "======BUDG 

ET INPUr/OUTPUT======" 

65 REM RANDOMIZE USR 100: CLOS 
E #3 

70 PRINT 1> Budget [set up 

]" 

80 PRINT " 2> B'jdget [load]" 
90 PRINT " 3> Budget [savej" 
— I CQ PRINT " 4> Budg e t [r e start 
]" 

105 PRINT •" 5> Print Spreadsh 
eets'"" on Wide Printer" 

110 PRINT '" 6> Disk Menu" 

115 PRINT '" 7> HELP!" 

120 PRINT ' • "=========select op 

tion==========" 

130 PAUSE 0 

140 LET k$=INKEY$ 

150 IF k$<"0" CR k$>"7" THEN GO 

TO 150 

160 IF k$="l" THEN GO TO 220 
170 IF k$="2" THEN ON ERR GO TO 
60: GO SUB 250 

180 IF k$="3" AND PEEK 32000=20 
5 THEN GO TO 290 
185 IF k$="7" THEN ON ERR GO TO 



186: CLS : RANDOMIZE USR 100: L 
OAD "taswi.Cx"CODE : RANDOMIZE U 
SR 64300: PRINT CHR$ 3;: PRINT U 
SR 100: PRINT " help. CT" 

186 IF k$="7" THEN ON ERR RESET 

: POKE 23607,60: PRINT #1; FLAS 
H l;"[ENrER]": PAUSE 0: GO TO 60 

190 IF k$="4" AND PEEK 37166=20 
5 THEN ON ERR GO TO 60: RANDOMIZ 
E USR 37166 

195 IF k$="5" AND PEEK 32000=20 
5 THEN CLS : RANDOMIZE USR 100: 
LOAD "prcode. CI "core : POKE 2670 
3,5: POKE 26704,251: POKE 64259, 
131: PRINT #4: LOAD "spread. GJ"C 
ODE : RANDOMIZE USR 58400: GO TO 

60 

200 IF k$="6" THEN RANDOMIZE US 
R 100: LOAD "Menu.Bl" 
210 GO TO 60 

220 RANDOMIZE USR 100: LOAD "bu 

dg e t.G J"69DE- 

230 RANDOMIZE USR 32000 
240 GO TO 60 

250 RANDOMIZE USR 100: LOAD "bu 
dget.CY"OODE 
260 RANDOMIZE USR 37166 
270 GO TO 60 
280 STOP 
290 GO TO 40 
300 GO TO 60 

310 RANDOMIZE USR 100: SAVE "BU 
DGET.Bl" LINE 330 
320 STOP 

330 RANDOMIZE USR 100: LOAD "pr 
code.Cl"O0ra; : REM aerco prcode 
333 REM RANDOMIZE USR 100: OPEN 
#3,"lp" 

335 RANDOMIZE USR 100: LOAD "sp 
read.CJ"OOEE 
340 POKE 23658,0 
350 GO TO 10 

400 CLEAR 29000: RANDOMIZE USR 
102: GO TO 330 



The Aerco prcode, and possible Problems 

There are at least four versions of the Aerco printer code, 
and each of these may have three variations of configurations 
set up during the user's adaptation to his own printer 
equipment. The Budget program LOADER, and the two programs 
"MS-TAS" and "BRIEF" may not print right with your equipment and 
with the Aerco prcode programming (POKES) given in the program 
listings. But try it anyway. My Epson conpatable printer and 
my Queme compatabke Daisy printer both work well with the code 
used in the Budget, I NTT, and BRIEF programs. Hopefully, yours 
will also. If not, then use the code tha^ you normally use with 
the these three programs, and change the POKES in the listings 
to that which you noritHlly use successfully with your other 
programs. 

UPDATE July 1988 
^ 3 Programming 



8970 REM 

** TS-2068 UPDATE ** 

-MS-TAS- 

A utility to PEEK and PRINT 
TASWCRD and MSCRIPT Code Data 
files from Disk or Cassette. 

* Does not require the soft- 
ware to be loaded. 

8972 LET x=9610: LET y=9600: CLO 
SE #2: BORDER 0: PAPER 0: INK 7: 
CLS : PRINT "'TAB 8; "TS-2068 U 
PDATE'" • •"* Utility to PEEK and 
Print out MSCRIPT and TAS'^CRD Da 
ta Files from Disk."'"'* Does n 
ot require Word Proc to be loade 
d.'" •"* DOES Require;'" "'1. Aerc 

- o or Oligor Print e r ^i^fe fee-fe 

e installed,"' '"2, Centronics Pr 
inter -ON- READY"' ""SET EQUIPME 
NT, THEN ENTER": PAUSE 0: CLS 
8974 PRINT AT 10,2; "Set Printer 
ON and READY" 'TAB 2; "Then [ENTER 
]": PAUSE 0: CLS 

8976 PRINT AT 10,12; "Select-" ' " 
TAB 5;"<1> TS-2040 Printer" "TAB 

5;"<2> Centronics Printer": GO 
SUB y: LET pr=z: IF pr=l THEN GO 

TO 8980 

8978 CLS : PRINT AT 10,1; "Does P 
rinter need a Line Feed?-"" 'TAB 
4;"<1> Yes - or - <2> No": GO S 

UB y: a.S : LET lf=z 

8980 PRINT AT 10,2; "Input DOS or 

Cassette" "TAB 5;"<1> Cassette" 
"TAB 5;"<2> Oliger DOS" "TAB 5; 
"<3> Larken DOS" "TAB 5;"<4> Aer 
CO FD-68 DOS": GO SUB x: LET tm= 
z: IF z<l OR z>4 THEN GO TO 8980 
8982 GO SUB ( tm=l)*9200f ( tm=2)*9 
3 6 0+ ( tm=3 ) * 93 10+ ( tm=4 ) * 93 00 
8984 IF tm=l AND pr=l THEN GO TO 

9000 

8996 GO SUB (tm=2)*9325+( tm=3)*9 
330+(tm=4)*9320 

9000 LET Lc=l: INPUT "Input File 
Starting Address ";sa: INPUT "I 
nput File Byte length ";bL: INPU 
T "Format Line Length? ";LL 
9002 IF tm=2 THEN POKE 23323, LL 
9004 IF tm>2 THEN POKE 64458, LL- 
1 

9006 CLS : OPEN #2,"p": FCR n=sa 
TO sa+bL STEP LL 
9008 FCR y=n TO n+LL-1 
9010 LET c=PEEK y 
9012 IF c=13 THEN PRINT ' 
9014 PRINT CHR$ c; 
9016 NEXT y 

9018 IF tm>2 THEN PRINT 
9020 LET Lc=Lc+l: IF Lc>55 THEN 
PRINT : CLOSE #2: LET Lc=l: OUT 
127,12: BEEP PI/oj,ol: CLS : PRI 
NT AT oj,od; "Adjust Page, then E 
NTER": BEEP PI/oj,ol: PAUSE 0: C 
LS : OPEN #2,"p" 

9030 NEXT n , , 



UPDATE July 1988 
MS-TAS Documentation Programming 

A Tutor in Basic Programming Techniques 

This is one of them utilities designed for a job at hand. 
Friends used to send me letters on cassette or disk and I was 
kinda like the poor guy who couldn't read writing. I'd have to 
fake it and call them to discuss what they'd said, because the 
data file was in Code files. Mostly these files were either 
Mscript or Tasword files. Both are good word procesors, but 
that didn't matter as I dont use either and it was Greek to me! 
I use Smart Text which saves data in Character arrays. 

So, that sets the senario. Then when Bob Mitchell sent me 
10 pages of Tasword code files, that did itl "MS-TAS" was the 
result. Now take time out to look at Bob's documentation in 
this issue. All of it was printed out with this utility MS-TAS, 
without a word processor . The print product was good enough 
that all I had to do Was run it through the copier. "MS-TAS" 
grabs Code files out of Disk (or Cassette) and prints them to 
paper. This particular program works with LARKEN DOS, OLIGER 

— BQSy— AERG O FD - 6 8 , — Q^—ChSSSSmw And it works with e ither 

CENTRONICS or TS-2040 printer. 

I'll now donate MS-TAS to public domain so that the Clubs 
can have at it. (Would be nice if Credits were mentioned). Now 
since MS-TAS will work with WHATEVER configuration one has, we 
will use MS-TAS as this issue's Programming Tutor. You Lads and 
Lassies who dont need no tutoring can just start keying in and 
skip the prose. 

MS-TAS looks like a lot of programming, but it trims down 
to a few lines when the extra stuff for other Disk Systems and 
Cassette is eliminated. The plan is to use menus to make you 
create variables to pin down your equipment types (artificial 
intelligence). Then Sub Routines are used for Cassette, for 
Larken Disk, for Oliger Disk, for Aerco FD-68 Disk, for 
Centronics Printer, or for TS-2040 printer. 

Cnce your equipment is identified, then a disk catalog will 
be given. A prompt for INPUT of a CODE FILE NAME will be 
presented at the bottom of the Catalog. Then, while the cat is 
still visable, other prompts ask for Code Start address, and 
byte length. Any "friend" who sends you Code data will tell you 
these two essential bits of information. But if using the 
Oliger V2-52, the info will be on screen. The last prompt will 
be for LINE LENGTH for printing. The disk Code File will then 
LOAD, and begin printing. If the line length input isn't right, 
the print out wont look so good, and you'll have to stop and 
start over with the right line length that you figured out from 
the wasted page. 

If you BREAK during printing, you'll need to <<CLOSE# 2>>, 
because if you dont, any PRINT or LIST will print to paper 
instead of the screen. Since all variables are identified 
within the program lines, you can repeatedly use RUN to start 
the program. The program remains in memory while the Code files 
are printing, so you can print out one code file after another 
until everything has been printed. Now thats the way the 
program operates. We will now investigate the programming. 

8972 and 8974 sets the vars used for sub-routine <Q0 T0> or 
<Q0 SUB>, then the screen colors, then gives information. 

8976 begins the artificial intelligence gathering by 
assigning var "pr" to the type of printer in use. pr=l for 
TS-2040 or pr=2 for Centrcxiics. 

8978 gathers more intelligence and assigns var "If". lf=l 
if your printer needs a line feed, else lf=2. Might mention the 
<G0 SUB y>, "y" was set to =9600 in line 8972. Look at line y 
(9600). This is a INKEY$ routine which waits for a key to be 
touched and then assigns that key to variable "z". Note the 
"-48" which makes z=the numbered key struck. AND, there is a 



9035>PRINr : CLOSE #2 
9040 PRINT AT 10,6; "<1> for Next 
File""TAB 6;"<2> To QUIT": INP 
Ur "Choice?" ;a: IF a<l CR a>2 TH 
EN GO TO 9040 
9045 IF a=2 THEN SIO? 
9050 GO TO 8996 

9200 PRINT AT 10,2; "Advance Tape 
to Index spot, ""TAB 2; "Then [E 
NTER]": PAUSE 0: CLS : PRINT AT 
15,6; "OODE LOADING": CLS : RETUR 
N 

9300 OUT 244,1: CAT "prcode.bin" 
,: GO SUB 9350: RETURN 
9310 RANDOMIZE USR 100: OPEN #4, 
"dd": PRINT #4: LOAD "prcode.Cl" 
CODE : GO SUB 9340: GO SUB 9350: 
RETURN 

9320 OUT 244,1: OS "",: GO SUB 
93 70 : CAT "7.$" ,i RETOR N 



9325 CAT : GO SUB 9370: LOAD /z$ 

OODE : RETURN 

9330 RANDOMIZE USR 100: OPEN #4, 
"dd": PRINT #4: CAT "",: GO SUB 
9370: LOAD z$CODE : RETURN 
9340 INPUT "Input Line width ";1 
w: RETURN 

9350 POKE 23703,205: POKE 23704, 
251: POKE 64451,254: POKE 64456, 
1: POKE 64457,0: POKE 64459, Lw-1 
: POKE 64460,0: POKE 64458,(10 A 
ND Lf>l)+(0 AND Lf<2): LPRINT : 
RETURN 

9360 LET /p=o: GO SUB 9340: POKE 
23323, Lw: POKE 23324,(0 AND Lf> 
l)f(10 AND lf<2): LPRINT : RETUR 
N 

9370 INPUT "ENTER TITLE of CODE 
to LOAD [everything between 
Quotes] ";z$: RETURN 

9600 PAUSE 0: LET z=OODE INKEY$- 
48: IF z<l CR z>2 THEN GO TO 960 
0 

9602 RETURN 

9610: PAUSE 0: LET z=OODE INKEY$ 
-48: RETURN 



-MS-TAS- 



Abbreviated for Oliger DOS 



8990 CLOSE #2: BORDER 0: PAPER 0 
: INK 7: CLS : PRINT '"TAB 8;"T 
S-2068 UP-DATE""'"* Utility to 
PEEK and Print out MSCRIPT and T 
ASWCRD Data Files from Disk."" 
"* Does not require Word Proc to 
be loaded. " ' ' "* DOES Require; " ' 
'"1. Aerco or Oliger Printer int 
fc to be installed. """2. Cent 
ronics Printer -ON- READY" " ' "SE 
T EQUIPMENT, THEN. ENTER": PAUSE 
0: CLS 

UPDATE July 1988 
Programming 



trap here which refuses to accept any key except "1" or "2". 
Also note the RETURN at line 9602. Subroutines such as this one 
«Q0 SUB y» are used repeatedly from any line in a program, 
thus saving many program lines. 

8980 gathers some more intelligence, this time "what kind 
of DOS?" Variable "tm" is set accordingly. Example- if Oliger 
Disk then tm=2. 

Now the "program knows" everything about your TS-2068 
system! The variables are set so that the right sub-routines 
can be called for Oliger Disk, Darken Disk, Aerco FD, or 
Cassette. And for Centronics or TS-2040. And for giving or not 
giving a line feed. All of that only tock a few seconds and 
we're now ready for some action. 

8982 Here's the first action. We use BOOLEAN logic to 
determine which GO SUB routine to use to CAT the directory, 
"tm" is the variable' set back at line 8980. The logic is 
arnially fniir TF THEN condi tionals. I'll g ive you the first and__ 



45 



you can visualize the others. <Q0 SUB (tm=l)*9200> means <IF 
tm=l THEN GO SUB 9200>. Next, IF tm=2 THEN GO SUB 9360. 

Lets look at 9360. That is the Oliger DOS syntax to 
initialize the Centronics printer. Then there a <G0 SUB 9340> 
which is to INPUT line width. This same subroutine (9340) is 
used with whichever DOS elected. After this we are back at 
9360) , the line width is POKED. The LPRINT is to return the 
printer carriage. Then we RETURN to line 8984. 

8994 diverts to line 9000 "if using cassette and TS-2040" 

8996 is anotter BOOLEAN logic having three possible routes 
for the GO SUB. We will take one route. If tm=3 then Larken 
DOS has been elected back at line 8980, so the <Q0 SUB 9330> 
will execute. At line 9330 we see the Larken syntax for CAT. 
The Catalog is put on screen. Then there isa <G0 SUB 9370>. 
Follow that and we find a dual use prompt to INPUT thie "title of 
the Code program to load". Then its back to 9330 again where 
the Larken LOAD is accomplished. Now we have the code file that 
we want to print out loaded. The RETURN puts us back to line 
9000. 

9000 At this time the Catalog is still on screen. The Code 
file has been loaded. The program asks for INPUT of "starting 
address" and then "byte length" of the code file. Any "friend" 
who sends text in code will tell us that. But if using the 
Oliger catalog, it will shDw this information. Next, we need to 
INPUT the format line length. Guess at 64 if you dont know. 

9002 here we poke the line length to the Oliger control 
address, and at line 9004 we poke the line length-one to the 
Aerco prcode control address. 

9006 here we <CPEN# 2,"p"> to send PRINT to the printer 
instead of to the screen. Then we start the counter "n" to 
count from "Code Start address" to "sa+byte length" , in STEPs of 
the line length. 

9008 Now we start counter "y" to count from "n" to the end 
of the line which will be "n+11-1". 

9010 here we PEEK the code file at the "y" address, and 
assign the Code of the peeked character to var "c". 

9012 mscript uses ENTER to skip a line. ENTER is code 13. 
So here we cause a line feed each time code 13 is peeked from 
the code file. 

9014 here the PEEKED character is printed, one at a time, 
as the y counter counts. Note the ";" which avoids a carriage 
return and keeps the next print position on the same line. 

9016 next y gets the next peeked character until y counts 
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9000 LET /p=o: POKE 23324,0: LET 
lc=l: LPRINI ! CAT : INPUT "Inp 
ut Disk File Name";z$: INPUT "In 
put File Starting Address" ;sa: I 
NPOT "Input File Byte Length" ;bl 
: INPUT "Format Line Length"; 11: 
POKE 23323,11: LOAD /z$O0DE : O 
PEN #2,"P": FCR n=sa TO sa+bl ST 
EP 11 

9005 FCR Y=n TO n+11-1 
9010 LET c=PEEK y 
9015 IF c=13 THEN PRINT ' 
9020 PRINT CHR$ c; 
9025 NEXT y: LET lc=lcfl: IF lc> 
55 THEN PRINT : CLCSE #2: LET Ic 
=1: OUT 127,12: BEEP 1,20: CLS : 
PRINT "Adjust Page, THEN ENTER" 
: PAUSE 0: OPEN #2,"P" 
-9030 NEXT n 



up to the line length, upon which time line 9018 will execute. 

9018 if tm>2 then we are using the Aerco printer code for 
Larken or Aerco DOS. The PRINT is to account for a built in 
glitch in the Aerco prcode. 

9020 var Ic is the line counter. Ic is incremented. If Ic 
reaches 56 then a page end is directed. CLOSEf 2 allows a 
prompt to be put on screen. Line count is put back to one, <OUr 
127, 12> causes the printer to feed the form to the next page 
beginning. The proipt is give to adjust the page (single shset 
printer). Then when ENTER is touched <QPEN# 2,"p" puts PRINT 
back to the printer. 

9030 next n gets the next line of characters PEEKED from 
the Code file. 

9035 will only execute after all of the characters in the 
code file has been peeked and printed. We're finished. So we 
'CLOSE# 2, and give options on screen. 



9035 CLOSE #2 

9040 PRINT ' • "<1> For next file" 
''"<2> To Quit": INPUT "Choice? 
";a: IF a<l CR a>2 THEN GO TO 90 
40 

9045 IF a=2 THEN STOP 
9050 GO TO 9000 



"INIT.BAS" for Aerco FD-68 DOS 

9900 INK 7: PAPER 0: BORDER 0: C 
LS : LET base=64500: POKE 23731 
,INr ((base-l)/256): POKE 23730 
,(base-PEEK 23731*256-1): OUT 2 
44,1: CAT "Cclear.bin",: CM: "C 
prcode.BIN",: CLS 
9910 CLS : PRINT AT 3,5; "Printer 

Status is:'" " 
9920 PRINT TAB 2; "Printer in use 

is: ";: IF PEEK (base+803)>2 T 
HEN PRINT "NOT SET" 
9922 IF PEEK (base+803)=l THEN 
PRINT "TS-2040" 

9924 IF PEEK (base+803)=0 THEN 
PRINT "Centroiics" 
9926 PRINT ' 'TAB 2; "Line Width i 
s: ";PEEK (base+4)+l 

9930 PRINT ' 'TAB 2; "Line Feed Sw 
itch is: ";: IF PEEK (base+5)=l 

0 THEN PRINT "-ON-" 

9931 IF PEEK (base+5)=0 THEN PR 
INT "-OFF-" 

9933 PRINT ' 'TAB 5; "Your Choice? 
"••TAB 5;"1> RESET PARAMETERS"' 
•TAB 5;"2> Leave AS IS": INPUT 
"Choice? ";b: IF b<l CR b>2 THE 
N GO TO 9933 

9934 IF b=2 AND PEEK (base+803)= 

1 THEN RANDOMIZE USR (base+2): 
GO TO 9995 

9935 IF b=2 AND PEEK (base+803)= 
0 THEN RANDOMIZE USR base: GO 
TO 9995 

9936 CLS : PRINT AT 10,2; "SELECT 
:'"*TAB 2;"<1> Centronics, or"' 
'TAB 2;"<2> TS-2040": INPUT a: 
LET a=a-l: IF a>l THEN GO TO 9 
937 



9050 if we elected to get the next file, the whole process 
starts over, but without the intelligence gathering. The 
Catalog is gotten to load in the next code file to print. 

8982 somehow I skipped part of the action of this line for 
the Aerco FD-68 and Larken DOS. If either of these are in use, 
then the Aerco prcode is needed for Centronics printing. If 
"tm=3" (Larken DOS) then the GO SUB is to line 9310 to LOAD and 
initialize the Aerco prcode. But if the Aerco FD-68 is in use, 
the GO SUB is to line 9300 to load and initialize the Aerco 
prcode. If the Oliger DOS is in use there is no need to load a 
code table, as the printer code is contained in the SAFE EPROM. 

While printing, you may BREAK and stop the printing. When 
you do that do a <CLOSE# 2> in order to re-direct PRINT to the 
screen. This will be when you elect a line length that is 
different from that formatted by the author of the Code data. 
You can determine the correct line length to input by looking at 
the aborted print out. Then just type <RUN ENTER>. Print out 
is fairly fast, as fast as my daisy wheel printer can print. 
But it wont be as fast as a dot matrix printer can print in the 
draft (fast) mode. 



9938 POKE (base+803),a: IF a=l T 

HEN RANDOMIZE USR (base+2): GO 
TO 9995 

9942 CLS : PRINT AT 10,0; "Does P 
r inter need a LINE FEED with 
each Carriage Return?"" •"<1> Y 
es - CR - <2> NO" 

9943 PAUSE 0: LET a=(OODE INKEY$ 
-49): IF a<0 CR a>l THEN GO TO 

9943 

9944 POKE (base+5),(N0T a)*10: P 
OKE (base+805),(NOT a+10) 

9960 CLS : PRINT AT 10,0; "Key De 

sired Printer line length:": IN 

PUT "Input line length: ";11: I 

F 11>255 THEN GO TO 9960 

9964 POKE (base+4),ll-l: POKE (b 

ase+804) ,11-1 

9968 CLS : GO TO 9910 

9995 CLS : PRINT "Copy these imp 

ortant notes:"" "1. Always init 

ialize the var ""base"" in 

your programs- ie, <LET base 
=64500>."' '"2. The Prcode does 
not work until it is TUR 

NED ON, by: <RANDOMIZE USR 

base>. This is for Centre 



nics Printers, """rr should be 
TURNED ON before doing any PO 
KES."""3. For TS-2040 use, <RA 
NDOMIZE USR, ( base+2 ) . " " " 4 
, There are 64 bytes ABOVE this 
CcxJe, (base+804 to 867) that 
can be used for hiding Vars 
that need to be carried fo 
rth to a new BASIC program."' 
'"The UDG area 65368-65535 is 1 
eftintact."""5. To turn ON lin 
e feed, <POKE (base+5) ,10>" 
' '"6. To Turn OFF LINE FEED, <P 
OKE (base+5 ),0" 
9996 PRINT ' '"7. To set printer 
Width, <POKE (base+4) 

,63> for 64 chr lines, (width 

minus 1)"""8. To TURN ON prin 
ter code, <RANDOMIZE USR 

base>"' '"9. To Turn OFF printe 
r code, <RANDOMIZE USR (b 

ase+2) > ie, to use TS-20 

40 printer"' '"10. This code is 
saved at 64500, 867. You ma 
y use the RALOADER pg 

m (Jack Dohany) to RE-LOCA 

TE the code"' '"ENTER when Ready 
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9997 PAUSE 0: CLS : PRIMT AT 6,0 
;"The Printer driver code IS no 
w initialized."' '"NEXT, a CAT 
will be done with a prompt t 
o load a program. " • ' "During ope 
ration, if the code is overwr 
itten, you may re-load this pro 
gram to re-set it into memory. 
"""ENTER WHEN ready.": PAUSE 0 

: CLS 

9998 IF a$<>"" THEN OUT 244,1: 
CAT "",: INPUT "Enter a Title t 
o LOAD (all bet- ween quotes)"; 
a$: CAT "a$", 

9999 DELETE 9900, 



Larken DOS, Aerco prccde 



Utilities "INIT" and "Cclear Code" 

The "INIT" utilities for the three Disk 
Operating Systems are slightly different. Each 
listing may be used to pick up another little twist 
for another DOS. The Larken liSIIT uses the prcode as 
is supplied by Aerco on cassette for the Aerco 
printer interface. liSIIT for the Aerco FD-68 DOS 
uses the prcode as supplied on disk by Aerco and 
modified to be re-loca table by Jack Dohany in his 
program RALQADER. For the latest improvements in 
RALOADER call or write Jack. His address appears in 
the January UPDATE under "TS-2068 Suppliers". Both 
"IISIIT" and "Cclear Code" are explained in this 
issue's editorial pages. 



9997 CLEAR 64455: DST PRINrCRG=6 
4461: POKE 26704, INT (PRINTCRG/ 
256): PCKE 26 70 3, PRINTCRG- (INT 
(PRINrCRG/256))*256: POKE 64456 
,1: POKE 64458,0: POKE 64457,0: 
POKE 64459,79: BORDER 0: PAPER 
0: INK 7: CLS : RANDOMIZE USR 
100: OPEN #4,"dd": PRINT #4: LO 
AD "prcode. C1"00DE 64456,1111: 
CLS : BEEP PI/PI, PI*PI: INPUT " 
INPtn LINE WIDTH LIMIT" ;Lw: POK 
E 64459, Lw-1: BEEP PI/PI, PI*PI: 
PRINT AT 20,1; "Install PROGRAM 
DISK, ENTER": PAUSE 0: CLS : R 
ANDOMIZE USR 100: OPEN #4,"dd": 
PRINT #4: CAT "",: INPUT "Inpu 
t Title of Basic Program, ""I 
All Between Quotes]"" ";a$ 

9998 IF a$<>"" THEN PRINT #4: L 
QAD a$ 

9999 DELETE 9997, 



"INIT" for Oliger DOS 

9980 CLEAR 65535: CLEAR 65367: B 
ORDER 0: PAPER 0: It« 7: CLS 
9982 INK 5: EX» n=0 TO 31: PRINT 
AT 6,n;"*";AT 16,n;"*": NEXT n: 
INK 7: PRINT AT 9,7;"PRINTHR SE 
T-UP";AT 12,7; FLASH 1;"TYPE of 
PRINTER": INPUT "<1> Centronics, 
or <2> TS-2040";pr 
9988 IF pr=2 THEN LET /p=t: 00 T 
O 9994 

9990 LET /p=o: PRINT AT 12,7; FL 
ASH 1;"SET LINE LENGTH": INPUT " 
Line Length? ";11: PCKE 23323,11 
: PRINT AT 12, 7; "Printer Need Li 
ne Feed?": INPUT "INPUT: <1> Yes 
or <2> No :";lf: POKE 23324,(10 
AND lf=l)+{0 AND lf=2): CLS 
9994 FLASH 0: LOAD /"DOSDEX MGR" 
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SOFTWARE REVIEW 
BY Tex Faucette 

MONEY MACHINE II (T/S 2068) 
ABBA Software Productions 

Does Vanna know about Banna? And in these 
days of intensive search for true Artificial 
Intelligence there arises an even more 
important questioni Is Banna aware of Vanna? 

Stay tuned for the next exciting episode of 
this digital drama! 

Vanna stars in a letter-turning role on what 
is probably the most popular game show on 
todays boob-tube. While viewing times may be. 
different for the various "market areas", a 
few of us lucky ones may even be able to 
observe this shapely lady twice daily! 

For those unfortunate ones who are able to 
observe Vanna infrequently or not at all, 
but are nevertheless equipped with a T/S 
2068, there remains the option of MONEY 
MACHINE II. This option not only permits 
discretionary observation of Miss Banna 
Brite (as shapely an assembly of pixels as 
one could wish for), but also permits one to 
compete in the actual game! Winnings are of 
course inaginary, but with Banna turning the 
letters, who cares? 

MONEY MACHINE II has performed flawlessly in 
several critical tests Including exposure to 
unsupervised grandkids and their cronies. 
If there is a tougher test for 2068 software 
it has escaped my attention. Full set of 
instructions for playing the game are 
included. Auxiliary tapes containing 
additional word puzzles are available, also 
a "Master Puzzle Maker" program for 
do-it-yourself enhancements. 
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MONEY MACHINE II is 
from Herb Bowers, 
Circle, Chesapeake, 
is listed as $12.00 
shouldn't miss. 



available on casette 
Sr., 2588 Woodshire 
VA 23323. Current price 
(us), a bargain you 



"PEEK VARS" Utility 



The "PEEK VARS" Utility 



9000 REM ** PEEK VARS ** 

9002 BORDER 0: PAPER 0: INK 7: C 

LS 

9004 PRINT "The BASIC Program Le 
ngth is ";(PEEK 23627+256*PE 
EK 23628-1) -(PEEK 2363 5+25 6*PEEK 

23636);" Bytes"' ' 
9006 PRINT "Systems Variables:"' 

9008 PRINT "ERR SP=";PEEK 23613+ 
256*PEEK 23614' "LIST SP="?PEEK 2 
3615+256*PEEK 23616' "NEWPPO" ?PE 
EK 23618+256*PEEK 2369' "NSPPC=" ; 
PEEK 23620' "VARS=";PEEK 23627+25 
6*PEEK 23628 •"PRCDG=";PEEK 23635+ 
256*PEEK 23636' "E LINE=";PEEK 23 

6 41+256*PEEK 23642 

9010 PRINT "WCRKSP='';PEEK 23649+ 
256*PEEK 23650' "STKBOT=";PEEK 23 
651+256*PEEK 23652' "SIKEND=" ; PEE 
K 23653+256*PEEK 23654' "S TOP="; 
PEEK 23660+256*PEEK 23661' "UDG=" 
;PEEK 23675+256*PEEK 23676' "MEMB 
Or=";PEEK 23698+256*PEBK 23699 
9018 PRINT "RAMrCP=";PEEK 23730+ 
256*PEEK 23731' "P-RAMT=";PEEK 23 
732+256*PEEK 23733' "MSTBOT=" ;PEE 
K 23744+256*PEEK 23745 
9025 PRINT ' ' "For a VARS area Pr 
int out. Key <C]ONT ENrER>": 

STOP 

9035 FOR n=(PEEK 23627+256*PEEK 
23628) TO (PEEK 23641+256*PEEK 2 
3642-1) 

9040 PRINT n;"=";PEEK n: NEXT n 
9050 ST^ 



The PEEK VARS utility is designed to be MERGED to a Basic 
program either under construction, or one that is being 
modified. Use it as a "dangling sub-routine" to be consulted 
when facts about the System Variables are needed. «G0 TO 
9000» gets a Screen print of the System Variables that may be 
needed for program analysis. Then after the System Vars are 
known, «aONr ENTER» screen prints the whole Variable Storage 
are of memory, disassembled by memory address and character code 
(in decimal). 

Type «CLEAR» before SAVINS the utility to Disk, and do 
not use a Auto RUN line. The utility is exactly lll| bytes in 
length. Keep this off-set figure in mind to extrapolate the 
ACTUAL System VARS when the utility is deleted. These M0VIN3 
system vars are VARS and E LINE. Note that the only variable 
used in the PEEK VARS utility is "counter n". The use of "n" as 

"a-"^unting "vari^ie--wxl^ extend—iriie- T ^ of VARS and E L INE 

exactly 19 bytes — "IF n has not been initialized in the main 
program". However, if n IS used in the main program, then the 
PEEK VARS utility will have no affect at all upon the SIZE of 
the vars file. 

Note that the n counter in line 9035 counts from "VARS to E 
LINE minus one", which encompasses the current Vars File in 
memory. If a Counter n has not been used in the main program, 
then EDIT and make the count "TO E LINE+18" in order to account 
for the 19 bytes within the vars file that is cos ted by 
initializing the n counter. If you CLEAR and RUN the utility, 
then CONT ENTER to print the Vars File, the print out will be in 
error by 19 bytes. This is because Counter n had not been 
initialized when the System Vars was printed. A <G0 TO 9000> 
will then print an accurate set of vars. You may add more PEEKS 
before line 9025 to get the status of the various FLAGS. A 
study of the TS-2068 User Manual, Appendix C and D, may help. 
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The JULY/APRIL Issue Disk 



Consolodated into ONE 



The July and April Issue Diskettes have been consolodated 
into one giant assemblage of programs and utilities. The 
consolodation was necessary because the Budget program, by Bob 
Mitchell, was split between the two issues. I have not ever 
seen such a combined useful and educational works presented in a 
computer magazine. The combined April/July Issue Disk packs in 
a virtual plethora of programs and utilities, almost filling a 
40 track diskette. The April/July issue disk is available in 
all three DOS formats, Oliger DOS, Larken DOS, and Aerco FD-68 
DOS, and are recorded on 5 1/4 inch Double Side Double Density, 
40 or 80 track. 



The sales proceeds of Issue Disks are shared between UPDATE 
and the Authors in a diabolic scheme designed for both to become 
rich quickly at the expense of the Subscribers. UPDATE takes 
$8.00 from each disk sale for the tiny amount of work to 
assemble the programs in three disk formats, plus cost of the 
disk and mailing. The (already rich) Authors make a killing 
sharing the remaining $8.00. The accounting firm. Sly, 
Slickingheimer, and Dolittle, assists UPDATE in disbursing the 
huge profits to the authors and helping us to evade taxes. This 
requires us to hold quarterly business meetings in Monaco aboard 
the consortium's 300' Yacht. 

ORDERIMS: Send $16.00 (check or M/0) for the April/July 
Issue Disk. Please specify for WHICH DOS (Oliger, Larken, or 
Aerco FD-68), and for which type of Disk Drive (40 or 80 track). 
A Catalog of the disk is given below. 



code. CI BYTES 

DOSDEX MGR BASIC 

LOAD BASIC 

BUDGET. Bl BASIC 

Menu.Bl BASIC 

budget. GJ BYTES 

spread. CJ BYTES 

budget.BJ BASIC 

spread.BJ BASIC 

BRIEF. Bl BASIC 

MS-TAS.Bl BASIC 

PEEK VARS BASIC 

budget. CY BYTES 

SEARCH BASIC 

FILE_DEX BASIC 

MARK-MOVE BASIC 

VERIJDISK BASIC 

Chopin BASIC 

Btls BASIC 

Mzrt BASIC 

Spell BASIC 



FILENAME TYPE CYLS SIZE START 



1 1826 63417 

2 6007 2 
1 87 10 
1 986 60 
1 702 10 
6 25923 32000 
1 3904 58400 
5 24554 10 

1 2855 8000 

2 5445 5 
1 924 8000 
1 196 



Ohm's Law BASIC 

Multiply BASIC 

Type Style BASIC 

Piano BASIC 

budgetD BYTES 

bujE.Cl BYTES 

bujJb.CT BYTES 

bujJs.CT BYTES 

help.CI BYTES 

bujJ3.Cr BYTES 

bujJx. CT BYTES 

OLI-MS-TAS BASIC 

OLI CODE BASIC 

prod BYTES 

Cclear BYTES 
Super MS-T BASIC 

REM BASIC 

file_dex BASIC 

1 C ARR 

LI MCLOAD BASIC 

INTT.Bl BASIC 

ms-tas BASIC 



1 
2 
1 
1 
1 
4 
2 
1 
1 
3 
1 
1 
1 
1 
2 
1 
1 
1 
1 
1 
1 
1 



1257 100 
6038 10 
2055 4608 
4747 10 
652 64716 



17642 47047 



8320 33280 
2048 33280 
3968 33280 



11200 33280 



2944 33280 
1512 8990 
1841 



6 25923 32000 

1 4978 1 

1 4962 1 

1 2092 1 

1 4496 1 

2 7584 220 

3 14780 9900 
2 7674 1 
2 7411 100 



256 23296 
5367 60000 
3060 8972 
3815 



1118 
3565 
712 



543 9980 
3045 8972 



TOTAL FILES: 43 
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The OCTOBER and JANUARY Issue Disks 

isfow available for All Disk Operating Systems 

The OCTCBER 87 and JANUARY 88 Issue disks are now available 
for three Disk Operating Systems; Oliger DOS, Larken DOS, and 
Aerco FD-68 DOS. Both October and January Disks contain a major 
software plus several useful utilities making their value at 
least twice the price. See the diskette Catalogs below. 

CRDERIN3: Sent $16.00 Check or money order for the disk of 
your choice. Please specify for which DOS, and whether for 40 
or 80 track drive. 



The October Issue Disk 

JLO SAFE V2.52 1988, J. Oliger 

DISK NAME: OCT UPDATE 
FORMATTED @80 TRACKS, 2 SIDE(S) 
CAPAaTY: 159 CYLS/795K BYTES 
FREE: 132 CYLS/660K BYTES 



FILENAME TYPE CYLS SIZE START 



SDOS MMRG 


BASIC 


3 


12180 


2061 


Mail Merge 


BASIC 


2 


10099 


2061 


J-UTIL 


BASIC 


2 


9441 


9800 


ALLEGRO 


BASIC 


1 


1576 


1 


pseudo 


BASIC 


1 


1805 


5 


pseu 


VRBLS 


1 


564 




PRT USIISG 


BASIC 


1 


1373 


10 


PROMPTS 


BASIC 


1 


1066 


90 


MENAGERIE 


BASIC 


1 


4671 


2070 


PTR STATUS 


BASIC 


1 


684 


1 


fm 


BYTES 


2 


6912 


16384 


ml 


BYTES 


2 


6912 


16384 


pg 


BYTES 


2 


6912 


16384 


cpr 


BYTES 


2 


6912 


16384 


fo 


BYTES 


2 


6912 


16384 


mrg 


VRBLS 


1 


612 




LEADER 


BASIC 


1 


1766 


150 




BASIC 


1 


4485 


152 



The January Issue Disk 

JLO SAFE V2.52 1988, J. Oliger 

DISK NAME: U/D JAN 88 
FORMATTED @40 TRACKS, 2 SIDE(S) 
CAPAaTY: 79 CYLS/395K BYTES 
FREE: 70 CYLS/350K BYTES 



FILENAME 


TYPE CYLS 


SIZE 


START 


DISK MGR 


BASIC 


2 


5988 


2 


Purity 


BASIC 


1 


4512 


152 


LIST LOOK 


BASIC 


1 


2259 


2 


DOSDEX 


BASIC 


1 


5057 


2 


mterm2. 


BASIC 


1 


2756 




PROG 


BASIC 


1 


955 


9999 


prog 


BASIC 


1 


955 




PGM-MOVE 


BASIC 


1 


1709 


10 



TOTAL FILES: 8 



TOTAL FILES: 18 
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OLIfiER 2068 DISK SYSTEM PRICES AND BASIC INFORMATION 



_+_+-+_+_+_+_+_ +_ +- h- +- +- +- +- +-+-+- +- +- +- +-+-+-+-+-+-+-+-+-+-+-+- +- +-+-+-+-+-+-+-+- 

DISK BOARD "A" 
Bare pc only: $17.95pp 
Kit of board with parts: $55.95pp 
Assembled & tested: $56.95pp 
Two drive data cable for above, 3 foot long total: $15,95pp 
Four drive data cable for above, 4 foot long total: $26.95pp 
WD1770PH-00 disk controller chip: $I9.95pp (spare or replacement-limit 1 per order) 
_+_+>+-+. +_ +- +_ +. +- +- +- +- +_ +«+-+-+-+-+-+-+-+-+- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +-+-+- 
DISK BOARD "B" W/NMI SAVE 
Bare pc with JLO SAFE Disc Basic eprom: $26.95pp 
Kit of board with parts: $45.95pp 
Assembled & tested: $63.95pp 
+_ +_ +- +_ +- +_ +. +- +- +- +- +-+-+- +- +- +- +- +- +-+-+-+-+-+-+-+- +- +- + - +- +- +- +- +- +- +- +- +- +- 
PACKAGE OF BOTH DISK BOARDS "A" & "B" W/NMI SAVE 
Bare pes only with JLO SAFE Disk Basic eprom: $43.95pp 
Kit of both boards with parts: |99.95pp 
Both boards assembled & tested: $127.95pp 
Both boards, assembled & tested w/2-drive data cable: $139.95pp 
The DiskWorks! Both bds assd w/2-drv data cable & assd 2068 Expansion Bd: $189.95pp 
_+_+_+_+_+_+_+_+-+- J- +-+-+-+- +- +- +- +- +- +- +-+-+- +- +- +- +- +- +- +-+-+-+-+-+- +- +- +-+-+-+- 



2D 68 PARALLEL PRINTER PCRT Bare board w/cassette:$16.95 Kit of board w/parts:$24.95 

Assembled & tested: J30. 95 Bare board w/cass (gold):S19.95 Gold board w/parts:$27.95 

Assd & tested (gold) : $33.95 Printer cable for this port:$14.95 (standard Apple II to Epson type, 3ft. ) 

Port software cassette only: $6.95pp (Use as alternate Aerco port driver) 

This very small but very capable Centronics type printer port for your 2068 will drive most any printer that has a 
Centronics type parallel Interface. The port uses the same port and BUSY bit assignment usod by the Aerco 2068 printer 
l/F, and thus Is compatable with the vast amount of 20 68 software that supports this interface. This port Is fully 
decoded and contains a "PRINTER READY" LED to show your printer's current status. Software on cassette Included with 
this port allows use of ttie standard LPRINT and LLIST commands and use of AT, TAB, and "," the full width your printer 
Is capable of. Also Included are hl-res screen dumps (via RAND USR call) for the Okldata dot addressable graphic 
printers, the Olivetti PR2300 Ink Jet printer, the Gemini lOX printer, and the Gorilla Banana printer. An ASCII 
screen dump of ASCII characters Is also Included for use with ANY printer. Unlike most other 2068 printer driver 
software, THIS software mainly resides In the 2040 printer buffer, using absolutely none of the ram normally used by 
Basic and we 1 1 out of the way for opening DFILE 2 on the 2068. 



2068 EXPAMSION BOARD Bare pc board:$14.95 Board w/parts: $43.95 

Assembled and tested Ollger 2068 Expansion board $54.95. 

Also available with gold plated rear edge traces. Add J3.00 per board to above prices for these. This compact (3 3/4" 
» 4 3/8") expansion board Is designed to plug Into the rear expansion connector of your 2068 computer. All of the 2068 
boards from John Ollger Co., except the 2068 User Cart board are designed to plug Into this expansion board, (the 
boards have male edge traces, and plug Into this board similar to the way new boards are plugged Into the Apple 
computer) so this one is a must If you plan on adding more circuits to your 20 68 with John Ollger Co. products. The 
board Includes one "spare" 20 pin Ic socket for a user circuit, a rear edge connector feedthrough for attaching the 
2040 printer, modem, etc., and the nee. circuitry for an ultra stable RGB monitor Interface. (NOTE: The use of the RGB 
circuitry requires opening your 2068, cutting one trace, and Installing one jumper.) The boardis purchase Includes 
assembly Instructions and a schematic of the RGB Interface. The parts kit for this one Includes five precut i slotted 
edge connectors, 2 Ic sockets, 1 74HC00 IC, and Ipc 47K Ohm 1/4W resistor. 



2068 EPROM PROGRAhWER Bare board: $12.95 Board w/pts (no eproms):$25.95 

2068 Pgmr asmbid i tstd:$33.95 Add $3.00 per board for gold plated edge traces. 

This board adds the capability of programming 2764 A 27128 eproms to your 2068 system. This one Is a must for serious 

use of the 2068 User Cart board. This board comes with complete documentation on Its assembly, use, theory of 

operation, tips, and detai Is on replacing the Home rom of the 2068 w/a 27128 eprom. This programmer requires the Vpp 

Power Supply (below, recommended) or a 4-22V0C regulated adjustable power supply w/voltmeter. 

2068 USER CARTRIDGE BOARD Bare tx,ard: $1 1 .95 (or 3«$31.95) Board w/parts (ex eprom) :$, 5.95 

3pcs board w/parts: $45.95 Assembled i tested: $20. 95ea cr 3 for $59.95 post pd (no eproms) 

Also aval lable w/gold plated edge traces. Add $3.00 per board to above prices for these gems. 

ATTN: Software Producers S Users Groups: Write for a quote on quantities of lOpcs. or more. 

This board Is designed to plug Into the cartridge port of the 2068 computer. The board can hold 2-2764 or 2-27128 
eproms In any comblnatio/,. It allows the 2068 computer owner, when used with the 2068 or TS1000 programmers, to store 
his own Basic programs In cartridge form for fast and easy access. The board's purchase Includes assembly 
instructions, schematic, and Instructions for Its use with Basic programs. 

Vpp POWro S<»yLY Bare board:$4.49 Board- w/bd mounting pts:$9.95 

Assembled and tested, less transformer: SI 5.95 (TS2040 Printer's power pack may be used as substitute for transformer 
with suitable connector). This small single sided board provides 4.4, 21, and 25VDC for use with any programmer 
offered by The John Ollger Co. This circuit Is designed to put as little stress on the eprom as possible during 
programming and Is recoimended for use with these programmers. The board Is supplied with schematic, assembly 
instructions, and use Instructions. Parts kit does NOT Include transformer or power cords/alligator clips. 

^ , ^ THE JOHN OLIGER CO. 

For (detailed product list, write 11601 whidbey Dr. 

Cumberland, IN 46229 



*************** ********* 

* TiHiE: i^ee miowhest- iriieo i orv8«==i.L * 

* T- I MEX— S I MCL.<i=ii I COh4l=-!E:iR:IE:iNIOE: * 

* Saturday ^ Sunday August 27 Z< 28, 1988 * 

Cleveland, Ohio 

^t****************************** 

* hosted by The Greater Cleveland Sinclair Users Group * 

* co-sponsored by: Zebra Systems, Syncware News * 

Lemke So-ftware, Sharps Inc, Cuyahoga Valley So-ftware 

* Budget Robotics, Indianapolis, CATS, SAF Michigan * 
and the SW Pennsylvania Users Groups 

******* ***************** 

To'cATIoSh BECK CENTER FOR THE ARTS 

(a community theatre/arts complex) 
17801 Detroit Avenue 

Lakewood, Ohio (1st suburb W. o-f Cleveland) 

Admission: *4.00 each day, or ^ . • u*. • ^ 

•$7,m -for 2 days (includes Sat. night hospitality; 
(exhibit table rentals include 2 admissions) 



+ + 4- + + 



+ 4. + 4. + + + + + + + + + + 4. + + + + + + + + 



Suaaested Hotels: 
near 1-90; Ramada Inn, 20375 Center Ridge Rd (US Rt 20) 

Rocky River, Ohio 800-272-6232. Closest Hotel. 

Red Roo-f Inn, 1-90 & Crocker Road, Westlake Oh. 
800-848-7878 

near 1-715 Days Inn, 4181 W 150th, Cleveland 216-252-7700 

near 1-4805 Scottish Inn, 22115 Brookpark Road, Fairview Park, 
216-734-4500 

Airport; Sheraton Hopkins Airport, 216-267-1500 

Restaurants: There are many -fine reasonably priced -family 

restaurants in the area. A list will be available. 



+ + + + + + + + + + + + + + + + + 
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Travel Routes: , ^ , 

Lakewood Ohio is the -first suburb west of Cleveland along 

Lake Erie. Interstate access is via 1-90. 

From 1-90 in Lakewood, exit at the McKinley Ave or Warren 

Road, and head north to Detroit Ave, then west. 

From 1-90 in Rocky River(next suburb west), exit at Detroit 

Road, and head east. Detroit Road is US Rt 6. 

From 1-71, exit at W. 150th St. and head north. W 150 will 

become Warren Road. Continue north into Lakewood to Detroit 

Ave. and turn west. 

These routes are shown on the AAA Ohio map. 



******************************* 
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For starters, let's look at a scenario using the 
compiler Timachine. You have compiled a data file and 
entered about 18000 bytes of data. Then you decide you 
wish you had built in a routine to print the data to 
your big printer. It w^s only designed to print to the 
2040 printer. 1 

You have a choice: Youj can redesign the BASIC and 
recompile in which casfe you have to re-enter all the 
data (well, not really! but I'll come back to that); or 
you can PEEK out the dkta from the compiled code and 
using a simple routinei in BASIC send the data to the 
big printer. ' 



I 



Once again, you will nUd the REM! LIST info which you 
should have kept when j/ou compiled your program. If 
you didn't do it at t^fe time and you kept a copy of 
your BASIC program theh go through the motion of 
compiling to get the rjuntime and variable lists and 
addresses. { 

Find the start address} of the array or string 
containing the data. Remember the data really starts 
two bytes further on. iFor argument's sake let's say 
your array was d${ 600,32) and let's say that the start 
address listed was 40000 so that means that the data 
starts at 40002. In your BASIC program assign this to 
variable si. By the way, don't forget that Timachine 
limits arrays to two dimensions. Tough but that's the 
way it is. 

If all 600 subscripts kre not full, then you shDuld 
know how many are usedj so far and this value should be 
in some variable, say, n. Look for n in your variables 
list and let's hope yoiur made it an integer when you 
compiled. If not the vjalue will be in floating point 
notation. All is not Ibst if it is but it gets more 
difficult and I shall hot go into that solution here. 
Assuming the value is indeed in integer notation, then 
n will be located at t^ address 33335 and the actual 



addresses 33335 and 33336. Use 
56 * PEEK 33336 in BASIC to get 



value of n will be at 
LET vl= PEEK 33335 + i 
this value. 



Now build a POR-NEXT l^oop to LPRINT the data to the 
big printer. 



Desparado last 
CR. Left no forwarding 
Name: Syd Wyncoop, 
to contact to g«jt 
SHOOT, but contact 
new location, 
apprehend. 



300 FOR k = si TO sl+(vl * 32) .STEP 32 

305 PO? m = 0 TO 31 

310 LPRINT am.$ PEEK (k + m); 

313 NEXT m 

320 LPRINT 

330 NEXT k 

This will not be as fast as a cotipiled routine would 
be, but it would be acceptable. 

As I said above, you don't really have to re-enter all 
the data after you have recompiled a program. Here's 
how I did it. 

1. Note the value of n (records entered so far). 

2. SAVE the data in your original compiled program 
by: 

SAVE "prog.Cl"OODE start, len 
where start is the array start address + 2 
and len is the total length of the array 
(600 * 32 = 19200). 

3. Restart the TS2068 and 

LOAD your newly recompiled program and make 
sure it is initialized by running it 
from the first entry point, ie, the first 
REM 1 OPEN #. 

LOAD "prog. CI "CODE /news tart 

where newstart is the new start address + 2 

POKE the value n into the correct address. 

4. Proceed as you did in your earlier version. 
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On a different tack, here is a way to adapt the LPRINT 
routine supplied with the Hacksel printer interface 
hardware to the Spectrum. This works on my emulator 
which is switched on by using OUT 244,3; whether it 
works on a real Spectrum, I know not. This technique 
should be adaptable for other CPI LPRINT routines. 

1. Change two ROM CALLS in the LPRINT code: 
CALL 0745h to CALL OCIO (at 65096 or FE48h) 
CALL 2009h to CALL 1F54 (at 65117 or FE5Dh) 
(eg, CD4507 becomes CDIOOC and you POKE the 
decimal equivalents into the right places). 

2. Now SAVE this and then CLEAR 64999 and LOAD 
the revised code into Spectrum. 

3. POKE 23749,0: POKE 23750,254 

(These are the locations in the Spectrum 
Channel Info area corresponding to 26703 
and 26704 in the TS2068.) 

4. POKE 65535 with 1 or 0 as required to turn 
the Sinclair character set off and tlie 
ASCII set on, and vice versa as instructed 
in the instructions for LPRINT. In otter 
words, this requirement is the same for the 
Spectrum and TS2068. 



If you dont subscribe then 
may your SOLD Chip get fried, 
your tax return be audited, the 
bank lose your deposit, and 
someone use your credit card. 



Bill Jones 
Editor 



IF YOU OVIN /) 206B, AND BUY A Z-B8—Y0U MILL NAVE EN0U6N COMPUTER 

POWER TO RUN ALL THE PROGRAMS NORMALLY UBETi. .EASILY 
IF YOU NEED TO OWN A PORTABLE COMPUTER THAT HAS THE EASIEST WORD 
PROCESSOR AND SPREADSHEET CAPABLE OF SERIOUS BUSINESS AND 
PERSONAL APPLICATIONS! THE Z-88 IS THE ONE! 



1. \4TLL TALK TO ANY COMPUTER SERIALLY ... ItBl ics 

2. WILL PRINT TO ANY PRINTER Regular 

5. NOISELESS TYPING IF NEEDED Bold 

4. ADD UP TO 3 MEGABYTE MEMORY Underline 

3. CAN REACH PRINTER GRAPHICS ' ' Superscript. .. .e=nic» 

6. MAKE YOUR OWN PROGRAMS Subscript HaO ' 

7. DIARY, CLOCK, CALetlDMtALAM Bold-ItKlics 

8. DIFFERENT FONTS AVAILABLE i I 

9. USER DEFINED CODES ' 12 

10. PQRmE HEMS 4 lOUILE M MTTEHES! ! ! * CONDENSED 

11. This page typed and printed by Z-88 

IMMEDIATE DELIVERYI PAID FOR BY MEf DELIVERED BY UPS— UPON RECEIPT OF 
»S50 MONEY ORDER OR CLEARING OF CHECK MADE OUT TO MIKE FINK 

SUGGESTED EXTRA OPTIONS! A. PARALLEL PRINTER CABLE «6S 

B. AC ADAPTER.... *20 



MIKE FINK 335 W 39 ST. 
H.r.CITY ICCI0^J4CJ 
212 695 eS98 



Editor's Note: Both Mike Fink and Sharp's Inc. are UPDATE subscribers. 
Mike was so ent^hused about the new Sinclair Z88 that he pulled out all stops to 
become a Z88 Dealer. Sharp's Inc. is also a dealer for the Z88. This new Lap 
Top computer is on its take off roll and will surely fly to high altitude. 
UPDATE will report its progress. 



Sharp's, Inc. 

Rt. 10, Box 459 
Mechanicsville, VA 23111 
(804) 746-1664 or 730-9697 



QL Computer 



$129/' 



includes PSION s/w 



We carry ALL hardware and software lines for the Sinclair QL. Compare our 
I prices. VISA and MASTERCARD accepted (3 % surcharge). 
WRITE FOR FREE CATALOG 



